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(ARR RBARARASAASAASALASAAALALASALASELARS AAAS ALAS ASA SALE ARA RARER REESE RARE SALES SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
NLY IN ACCORDANCE THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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* 
* 
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* 
* 
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* 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ormpon aT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


De Be Se Ge Be Oe Se Oe Se Be Se Ge Be Se Se Se Se Se Se See 
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PUTT IIIT Iie iii iii iii titi ii ii iii titi iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiigy 
D. N. CUTLER 20-JUN-77 
MODIFIED BY: 


v03-014 MMD0311 Meg Dumont, 19-Jul-1984 9:37 
Add support for the UCBSL_MEDIA_ID field 


vO3-013 mmMD0302 Meg Dumont, 20-Jun-1984 13:44 
Fix to make READ forward into EOT return SS$_NORMAL. 


v03-012 RASO300 Ron Schaefer 27-Apr-1984 
Add DEVSM_NNM characteristic to DECHAR2 so that these 
devices will have the ‘‘node$"’ prefix. 

v03-011 TMKOOO01 Todd M. Katz 08-Dec-1983 
Fix a broken branch. 

v03-010 ROwW0258 Ralph 0. Weber 17-NOV-1983 


The Paul Painter Memorial Enhancement 
Named for one of the unfortunate customers who suffered much 
to determine the great UCBSL_MT_RECORD secret while rye to 
create a user-written magtape driver, this change eliminates 
use of the device dependent field uéest MT_RECORD in favor of 
the device independent field, UCBSL_RECORD. 


v03-009 ROW0213 Ralph 0. Weber 20-AUG-1983 
Change basing for device-dependent UCB from UCBSL_DP_LINK+4 to 
a field independent UCBSK_LCL_TAPE_LENGTH. This allows the 
Ge ice~indpendent UCB to Be altered without having to edit 
s module. 
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V03-008 RLRDPATH1 Robert L. Reps ort 31-May-1983 
Allow UCB to include new DUAL PORT extension x 
changing base of where we begin the private TMDRIVER 
extension from UCBSL_DPC+4 to UCBSL_DP_LINK+4. 


V03-007 RLR54598 Robert L. Rappaport 88-Mar-1982 
Correct = that crashes system when dealing with 
unit number 7. 


V03-006 RLR50799 Robert L. Rappaport 15-Dec-1982 
Correct problem that caused § earing of Volume Valid 
when attempting to mount or init tapes. 


V03-005 RLR47029 Robert L. Rappaport 17-Aug-1982 
Correct error that indicated records skipped when 
oy reverse record occurred at BOT. Also reset density 
in DEVDEPEND after POSITIONING operations. 


V03-004 RLRECO02 Robert L. Beppegert 20-July-1982 
Fix second error introduced by fix to FCE that caused 800 
bpi tapes to ignore Tape Marks on reads. 


v03-003 KDM0002 Kathleen D. Morse 28-Jun-1982 
Added SDYNDEF, SDCDEF, SSSDEF, and S$VADEF. 
V03-002 RLRECOO1a Robert L. Rappaport 21-June-1982 


Correct error introduced in the elimination of testing 
for FCR (Frame Count Error) errors on reads. This 
inadvertently eliminated testing for Tape Marks. 


v03-001 BER E00) Robert L. Rappaport 17-May-1982 
Ignore FCE (Frame Count Error) errors on Read commands 
and thereby allow Reads with IOSM_INHRETRY set to 
succeed when the buffer is larger than the record. 


QAR 1404. 
Do not request gag channel until possible REWIND 
done in FDISPATCH. Also RELCHAN before REQCOM. 


Only try to clear SLA bit, once per interrupt, per drive 
in tMSINT. , teen 
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SOOCCCOSCSOSCSOSOSOOOSOSOOOSCOOSOOSOOOCSOOSOOOCOSCSOSOSOOSOOOOOOOOOOOOOOOOOOOOoOO 
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1 

! This tracks patch made in V3.1. 

1 . 

! : TMO3-TE16/TU77 MAGTAPE DRIVER 

\ ; MACRO LIBRARY CALLS 

1 oe 

1 SADPDEF sDEFINE ADP OFFSETS 
0 1 SCRBDEF DEFINE CRB OFFSETS 
0 1 SDCDEF sDEFINE DEVICE CLASSES 
1 SDDBDEF :DEFINE DDB OFFSETS 

1 SDEVDEF sDEFINE DEVICE CHARACTERISTICS BITS 
00 1 SDPTDEF ;DEFINE DPT OFFSETS 
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CHECK FOR FATAL OR RETRIABLE ERROR 


LOCAL MACROS 


ERROR 
BSBW ~ CHECK_ERROR 


~MACRO CHECK 


-ENDM 


CHECK_ERROR 


EXECUTE FUNCTION AND BRANCH ON RETRIABLE ERROR CONDITION 


vow 


EXFUNC 


-ENDM 


GENERATE FUNCTION TABLE ENTRY AND CASE TABLE INDEX SYMBOL 


F CODE !MT_CS1_M_GO 


CD'FCODE=.-F TAB 
GENF 


MACRO GENF FCODE 


-ENDM 


GENERATE ERROR MASK TABLE ENTRY 


MACRO MASK LIST 
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~3EP-1984 00:17:59 CDRIVER.SRCITMDRIV IVER.MAR; 1 (1) 
00 173 ; TEST If ANY RETRIES REMAINING 
$00 1p 
000 175 .MACRO TESTR BDST 
0000 176 BSBW Ss TEST 
090 17 .WORD BDST-.-2 
00 178 .ENDM = TESTR 
000 17 
000 180 ; 
900 1 : LOCAL SYMBOLS 
60285010 00 1 5 MEDIA_ID_TE16 = “X<6D 85 10> : Media id for the TE16 
6D29502D 0000 184 MEDIATID~TU45 = *x<6929502D> : Media id for the TU45 
6D29504D 9000 3 MEDIA“ID~TU77 = *X<6D29504D> : Media id for the TU77 
0000 187 ; TE16/TU77 MASSBUS REGISTER OFFSETS 
0000 188: 
0000 189 
0000 190 SDEFINI MT 
0000 191 
0000 198 SDEF -BLKL 1 sDRIVE CONTROL REGISTER 
0004 19 mYTELD MT cst. 0. <- t DRIVE CONTROL REGISTER BIT DEFINITIONS 
0004 19% < : GO BIT 
9004 199 <FCObE, 65. + FUNCTION CODE 
0004 197 SDEF —MT_DS .BLKL 1 [DRIVE STATUS REGISTER 
0008 198 _VIELD MT_DS,0,<- + DRIVE STATUS REGISTER BIT DEFINITIONS 
0008 199 <SCA,,M>,- 3; SLAVE ATTENTION 
0008 200 <BOT, ,M>,- : BEGINNING OF TAPE 
0008 201 <TM,.M>,- : TAPE MARK 
0008 202 <1DB, ,M>,- : IDENTIFICATION BURST 
0008 20 <SDWN, ,M>,=- 3: SLOWING 
0008 204 <PES,.M>,- : PHASE EN RODE 
0008 305 <SSC,,M>,= : SLAVE STATUS CHANGE 
0008 206 <DRY, ,M>,= + DRIVE READY 
0008 207 <DPR, ,M>,= t DRIVE PRESENT 
0008 208 <,1>.- : RESERVED BIT 
0008 209 <E0T, .M>,- : END OF TAPE 
0008 210 <WRL, ,M>,= + DRIVE WRITE LOCKED 
0008 211 <MOL, ,M>,= + MEDIUM ONLI 
0008 21g <PIP, ,M>,= : POSITIONING IN PROGRESS 
0008 1 <ERR, .M>,- + COMPOSIT ERROR 
000 1% <ATA, .M>= : ATTENTION ACTIVE 
$008 16 SDEF MT ER .BLKL 1 ERROR REGISTER 
000C 217 _VTELD MT_ER,0,<- : ERROR REGISTER BIT DEFINITIONS 
000C 218 <ICF,.M>.- : LEGAL L FUNCTION 
900¢ 19 <ILR,.M>,- : ILLEGAL REGISTER 
00¢ 0 <RMR, .M>,= : REGISTER MODIFY REFUSED 
00¢ 1 <CPAR, .M>,- : CONTROL BUS PARITY ERROR 
00¢ é <FMT, .M>,- : FORMAT ERROR 
00¢ <DPAR, ,M>,- : DATA BUS PARITY ERROR 
00¢ 4 <VPE,,M>,=- : VERTICLE PARITY ERROR (NRZI) 
C 5 <LRC,.M>,- : LONGITUDINAL PARITY ERROR (NRZI) 
C 6 <NSG,.M>,- ; NONS TANDARD GAP 
¢ <FCE,,M>,> + FRAME COUNT ERROR 
C é <TH, .M>,= t ILLEGAL TAPE MARK 


Vetus" 


= TMO3=-TE16/TU77 MAGTAPE DRIVER 19° His 
00C 9 <NEF, ,M>,= 
00C 0 <DTE,,M>,- 
00C 1 <OPI,,M>,- 
ope ¢ <UNS,,M>,=- 
Oar Z ‘ <CRC,,M>,- 
Boe 5 ; Explicitly define alternate names for 
00000040 000C 5 MT_ER_M_INC=MT_ER_M_VPE 
00000006 000C 8 MT_ER_V_INC=MT_ER_V_VPE 
90000007 OO0€ 540 MITER-V-PEFEAT-ER-V-TRE 
= 
§0000400 SOOk $4) MITERTMTCEEMT ERA TIA 
0000000A 000¢ 4¢ MT~ER-V~CS=MT-ER-V-ITM 
00008000 000C 243 MTTERTM"COR=MT_ER_M_CRC 
0000000F 990¢ 44 MT~ER-V_COR=MT_ER-V_CRC 
000C 46 SDEF MT_MR ~BLKL 
0010 47 SDEF MT_AS ~BLKL 
0014 248 $DEF  MTqFC “BLKL 
0018 249 SDEF MT_DT -BLKL 
001C $20 -VIELD MT_DT,0,<= 
ae ote 
001¢ H <SPR,.M>,- 
001C 54 <DRQ,,M>,- 
001C 55 <7CH,,M>,=- 
001C 256 <MOH, ,M>,- 
doe 388 ews 
001C $25 S$DEF MT_CC »BLKL 
0020 60 SDEF MT_SN -BLKL 
0024 261 SDEF MT_TC KL 
i 7 a Ss 
0028 264 <EPAR’1 A>. 
0028 265 <FSEL,4,M>, 
0028 266 <DEN, 3,M>,- 
$058 ae <éhad, M> 
0098 69 <TCW,.M>,= 
028 70 <FCS,,M>,- 
09 : 7 ‘ <ACCL,,M>,- 
0 7 
028 74 SDEFEND MT 
000 75 
00 6 ; 
00 3 
$3 Fr 
000 39 SDEFINI UCB 
: : SVIELD UCB,0,<- 
0 <MT_REWIND, .M>,~ 
0 4 <MT_PRVMOL,, 
00 5 <MTPWRFL,.M>, 
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; eee fini FUNCTION 
; DRIVE TIMING ERROR 

; OPERATION INCOMPLETE 

; DRIVE UN 

; CRC ERROR (NRZI) 

s 


ome bits in MT_ER. 


sMAINTENANCE REGISTER 
ATTENTION SUMMARY REGISTER 
: FRAME COUNT REGISTER 
DRIVE TYPE REGISTER 
; i DRIVE A pati FIELD DEFINITIONS 


unre 0) 


; TAPE DRIVE (ALWAYS 1) 


CHECK CHARACTER REGISTER 
;SERIAL NUMBER REGISTER 
:MAGTAPE CONTROL REGISTER 
APE CONTROL REGISTER FIELD DEFFINITIONS 

SLAV E SELECT 

EVEN PARITY 

FORMAT SELECT 

DENSITY 

RESERVED BIT 

ENABLE ABORT ON TRANSFER ERROR 

TAPE CONTROL WRITE 

FRAME COUNT STATUS 

ACCELERATOR 
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DEFINE DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 


DEVICE DEPENDENT STATUS BITS 
: 3 ih F IN PROGRESS 

; PREVIOUS MEDIUM ONLINE STATE 

; Currently in Powerfail recovery 
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009 $ CAT CHELP, «Poe ; Cancel Pending(looked at in Powerfail) 


00000084 0000 -=UCBSK_LCL_TAPE_LENGTH 


8 
9 
Bpee 0 
0B4 91 SDEF UCBSL_MT_SR ~BLKL 1 ;SAVED MBA STATUS REGISTER 
088 35 SDEF UCBSW_MT_DS -BLKW 1 ;SAVED DRIVE STATUS REGISTER 
OBA 935 SDEF UCBSW_MT_ER -BLKW 1 sSAVED DRIVE ERROR REGISTER 
00BC 94 SDEF UCBSW_MT_FC -BLKW 1 ;SAVED DRIVE FRAME COUNT REGISTER 
008 95 S$DEF UCBSW_MT_SPACNT .BLKW 1 sCURRENT SPACING COUNT 
00C 38 SDEF UCBSW_MT_CS1 BLK 1 ;SAVED DRIVE CONTROL REGISTER 
Ope 97 SDEF UCBSW_MT_TC_SAV .BLKW 1 ;SAVED TAPE CONTROL REGISTER 
0C4 98 SDEF UCBSW_MT_FORCNT -BLKW 1 ;FORWARD SPACE COUNT DURING RETR 
00C6 99 SDEF UCBSW_MT_TC ~BLKW 1 ; TAPE CONTROL REGISTER CONTENTS 
00c8 00 SDEF UCBSL_MT_PREVTM .BLKL 1 ; Position of previous TAPEMARK, used 
oocc 301 : in forward SKIPFILE and SPACEFILE 
oocc 8 3; operations in detecting consecutive 
00cc 0 : TAPEMARKs 
OOCC 04 SDEF UCBSL_MT_ORGPOS .BLKL 1 ; Here store value of UCBSL_RECORD 
0000 $02 3 at STARTIO time. 
00D0 06 SDEF UCBSW_MT_CC_SAV .BLKW 1 ; Space to save controller register. 
00000004 00D2 307 BLKW 1 ; RESERVED for now. 
00000004 on0e 5 UCBSK_MT_LENGTH=. ; Length of MT UCB. 
00D4 10 SDEFEND UCB 
0000 11 
0000 \¢ 3 
444 17 3 MAXIMUM SPACING ON READ AND WRITECHECK ERRORS 
0000 15 
00000005 0000 16 ERR_SPACING=5 sFIVE RECORDS | 
0000 317 
0000 18 ; 
0000 19 ; HARDWARE FUNCTION CODES 
0000 20 ; 
0000 21 
00000000 0000 $§ F_NOP=0*2 NO OPERATION | 
00000000 0000 23 F_PACKACK=0*2 sPACK ACKNOWLEDGE 
00000000 0000 24 F_SENSECHAR=0*2 sSENSE TAPE CHARACTERISTICS 
00000000 8308 5 F_SETCHAR=0*2 sSET TAPE CHARACTERISTICS 
00000002 0000 $ F_UNLOAD=1#2 UNLOAD DRIVE 
00000 000 F_REWIND=3* REWIND 
0000000 000 8 F_DRVCLR=4* DRIV 
44 8 4 9 F_READPRESET=8*2 ;READ IN PRESET 
0000014 0 0 FIERASE=10*2 TERASE TAPE 
sie 4 db ° 1 F_WRITEMARK=11%2 sWRITE TAPE MARK 
0000001 0 § F_SPCFILFOR=12* sSPACE FILE FORWARD 
0000001 it F_SPCFILREV=15* sSPACE FILE REVERSE 
00000018 0 4 F_SPCRECFOR=12* ;SPACE RECORD FORWARD 
OOO00TA 38 5 F_SPCRECREV=15* ; E RECORD REVE 
00 8 0 § Lh ae se t s INTERNAL SPACE RECORD FORWARD 
8 f bp F_INTSPCREV=25* ; INTERNAL SPACE RECORD REVERSE 
8 F_WRITECHECK=20%2 sWRITE CHECK DATA FORWARD 
000 00 FURY TECHE CERScS82 sWRITE CHECK DATA REVERSE 
0 bh B8 40 F_WRITE=24%2 sWRITE DATA FORWARD 
000 0 41 F_WRITEDATA=24%2 sWRITE DATA FORWARD 
000000 000 42 F_READDATA=28*2 ;READ DATA FORWARD 


<- 
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0000003€ F_LREADDATAR=31#2 sREAD DATA REVERSE 

: MINIMUM RECORD SIZE 
0000000€ MIN_RECORD=14 ;FOURTEEN BYTES 


; HARWARE DENSITY DEFINITIONS 


000 343 
0 44 
45 
0 46 i 
a3 it 
800 849 
000 350 
000 351 
0000 3 
0000 35 
00 0 54 
00000003 00 55 NRZI=3 7800 BP! 
00000004 0000 36 PE=4 [PHASE ENCODED 
$8 
i : 2p 3 ERROR COUNT THRESHOLD BEFORE ALTERNATE RECOVERY ATTEMPTED 
0000 361 * 
00000008 00 0 36¢ THRESHOLD=8 sEIGHT RETRIES BEFORE ALTERNATE METHOD 
0000 364 : 
0000 365 ; LOCAL DATA 
0000 366: 
0000 367 : DRIVER PROLOGUE TABLE 
0000 368 ; 
0000 369 
0000 370 DPTAB = ;DEFINE DRIVER PROLOGUE TABLE 
0000 371 END=T TEND OF DRIVER 
0000 372 FLAGS= OPT sA_ _SUBCNTRL,=- INDICATE SUBCONTROLLER 
0000 «37 ADAPTER “ADAPTER TYPE 
0000 374 UCBs ze -UCasK _MT -LENGTH, = = ;UCB SIZE 
0000 375 NAME=TMDRI IVER NAME 
0038 376 DPT_STORE INIT TROL BLOCK INIT VALUES 
0038 377 DPT“STORE DDB,DDBSL deve enw :DEFAULT ACP NAME 
003F 378 DPT“STORE UCB.UCBSB_FIPL.B.8 ;F 
0043 379 DPT STORE UCB, ,UCBSL- “DEVCHAR,L.- :DEVICE CHARACTERISTICS 
0043 380 <DEVSM_FO : FILES ORIENT 
0043 «381 DEVSA"DIR= t DIRECTORY STRUCTURED 
0043 382 i DEVSM~AVL- + AVAILABLE 
0043 «38 i DEVSMELG- : ERROR LOGGING ENABLED 
0043 384 i DEVSM~IDV- : INPUT DEVICE 
0043 385 i DEVSM~ODV- : OUTPUT DEVICE 
0043 8 ip sn S01- : SINGLE DIRECTORY DEVICE 
4 iDEVSM"S ; SEQUENTIAL DEVICE 
004A 388 DPT_STORE UCB, Deas -DEVCHAR2,L.~; DEVICE CHARACTERISTICS. 
004A 389 <DEVSM_NNM>~ PREFIX NAME WITH ‘'node$’ 
0051 390 DPT_STORE UCB, ocBsB_ DEVCLASS B.DéS TAPE :DEVICE CLASS 
0055 91 DPT“STORE UCB.UCBS BUF SIZ. +2088 -DEFAULT BUFFER SIZE 
OSA 3 DPT~STOR UCB {UCBSt~DEVD EPEND W<*X3CO> :DEFAULT TAPE PARAMETERS 
005F 39 DPT“STORE UCB.UCBS$B-DIPL.B.21. ;DEVICE IPL 
0063 94 DPT“STORE UCB.UCBSB-ERTCNT.B.16 ;ERROR RETRY COUNT 
06 95 DPT“STORE UCB.UCB$B-ERTMAX.B.16_:MAX ERROR RETRY 
0 9 DPT“STORE UCB.UCBSW-MT_TC,W,<*X3CO> gDEFAUL T TAPE PARAM TERS 
7 9 DPT“STORE REINIT -CONTROL BLOCK RE-INIT V 
7 98 DPT“STORE CRB,CRBSL_INTD+4,D, TMSINT INTERRUPT SERVICE ROUT INE ADDRESS 
007 99 DPT“STORE CRB.CRBSL-INTD+VECSL_UNITINIT,D,TM_TXXX_INIT ;UNIT INIT 
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DPT =$ {ORE DDB, DDBSL_DDT,D,TMSDDT ;DDT ADDRESS 
DPT STORE END ; 


00000001 -MDELETE DPT_STORE 


> DRIVER DISPATCH TABLE 


DDTAB TM,- ;DRIVER DISPATCH TABLE 
TM_STARTIO,=- 3START 1/0 OPERATION 
TM_UNSOLNT,- SUNSOLICITED INTERRUPT 
TM~FUNCTABLE,- sFUNCTION DECISION TABLE 
TM_CANCELIO,= sCANCEL I/0 ENTRY POINT 
TM_REGDUMP, = Fed HH os DUMP ROUTINE 
<<AT _TC+4+MBASL -BCR+44+8>+<<54541>24>>,- ;DIAGNOSTIC BUFFER SIZE 
<<MT_TC+4+MBASL_BCR+4+8>+<124>+<EMBSL_ Dv. REGSAV>> ;ERROR BUFFER SIZE 


; DENSITY CODE TRANSLATION TABLE 


3 a" CODES s TRANSLATED ¥ TAKING Hh ative BIT eked y DENSITY 
; MULTIPLYING BY FOUR TO FORM THE STARTING BIT NUMBER, AND THEN 
; EXTRACTING THE APPROPRIATE DENSITY CODE FROM THE TRANSLATION TABLE. 


SOOoOooooooooooooooooooooooooooo 
GOOQoooocoocooocooooooooooooooooo 
FWWNAWIWWAANANO OOOO OOCOOCOSOOOCONN 
COOWWOWDOoMDMMMMDooOOOOOOCOOOOOCO "py 


FWNWAAAWIWMI AAAI IDININPININININPININIDY 2 2 4 PP OP OM MH OOOOOOOCOCOCO 


Fe at at ot ot et ot MM MMAAUAAUAUAUMUAUMUAMMAAAHrAnnrmMuManaMdnn ae 
WR OODNAUNEWN OOD NAME WN ODWONOAUES WR ODODE WN HO 


DENSITY: : 
seecteee -LONG  *X33343333 sDENSITY CODES 0-7 
3333333 LONG angeeeeeee sDENSITY CODES 8-15 
33333333 LONG %X33333333 sDENSITY CODES Jo-¢3 
33333333 Bote LONG %X33333333 sDENSITY CODES 24-31 
0048 F 
sk 3 TXXX DRIVE TYPE DESCRIPTOR TABLE 
048 
0048 TM_DTDESC: : 
0029 0048 . WORD aH’ :TE16 45 IPS 
01 O04A -BYTE ODT$_TE16 
00000003 0048 se stidanaiaae al OTDESe :LENGTH OF PD aia TYPE DESCRIPTOR 
002A 0048 WORD 3 TU45 45 1 
02 0040 -BYTE OT$_TU4S 
002 Baek 44 -WORD “*x2e 1077 125 IPS 
03 005 4 -BYTE 0T$_TU77 
9000 B3 81 44 -WORD 0 TEND OF TABLE 
00000056 53 444 -BLKB TM_DTDESCLEN ; SPARE DRivE TYPE SLOT 
0056 445 
056 446; 
056 447 ; HARDWARE I/0 FUNCTION CODE TABLE 
056 448; 
056 449 
056 450 FTAB: : 
b29 451 GENF F __NOP NO a ye by. 
05 $36 GENF F UNLOAD [UNLOAD VOLUME 
058 45 GENF F_SPCFILFOR : SPACE FILE FORWARD 
059 454 GENF F_-REWIND - 
Beh 455 GENF F_DRVCLR ‘ORIVE C EAR 
5B 456 GENF F-SPCFILREV :SPACE FILE REVERSE 


<- 
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05¢ 457 GENF  F_ERASE sERASE TAPE 
50 $28 GENF F SPCRECREV * SPACE RECORD REVERSE 
bee 45 GENF F_PACKACK ;PACK ACKNOWLEDGE 
SF 460 GENF F_SPCRECFOR ;SPACE RECORD FORWARD 
060 461 GENF F_LWRITECHECK ‘WRITE CHECK FORWARD 
061 ret GENF F_WRITEDATA SWRITE DATA FORWARD 
006 46 GENF F_READDATA sREAD DATA FORWARD 
06 464 GENF F_WRITECHECKR sWRITE CHECK REVERSE 
Boge 465 GENF F_WRITE sWRITE DATA FORWARD 
065 £96 GENF F _READDATAR sREAD DATA REVERSE 
B08 46 GENF F_READPRESET ;READ PRES 
B88 $38 GENF F_SETCHAR sSET TAPE CHARACTERISTICS 
68 46 GENF F_SENSECHAR sSENSE TAPE CHARACTERISTICS 
BRe8 470 GENF F_WRITEMARK sWRITE TAPE MARK 
06A 471 GENF F_INTSPCFOR s INTERNAL SPACE RECORD FORWARD 
0068 +76 GENF F_INTSPCREV + INTERNAL SPACE RECORD REVERSE 
oor an 
dost of? 3 FORMAT CODE TRANSLATION TABLE 
006C 477 ; FORMAT CODES ARE TRANSLATED BY TAKING THE FOUR BIT ENCODED FORMAT VALUE, 
006C 478 ;: MULTIPLYING BY FOUR TO FORM THE STARTING BIT NUMBER, AND THEN EXTRACTING 
945 rt 4 : THE APPROPRIATE FORMAT CODE FROM THE TRANSLATION TABLE. 
bose tbs FORMAT 
CCCCCCCC 006C 183 eLONG “XCCCCCCCC sFORMAT COD $3 S 0-7 
CEDCCCCC 0070 484 -LONG “XCEDCCCCC sFORMAT CODES 8-15 
tte 
0074 487 ; FUNCTION TIME OUT TABLE 
0074 488; 
itt 185 TIME_OUT 
00000000 0074 491 7 -LONG QO ‘NO OPERATION 
00000006 0078 49 -LONG 6 UNLOAD VOLUME 
00000200 O007C 49 -LONG 60*12 : Space File Forward 
§0090006 tt4 t93 tONG = DRIVE CLEAR 
aup90s00 9988 f9¢ LONG Bonz atten sever 
est $ 44 090 49 eLONG 60*12 Spa ie Reverse 
000000: 094 49 -LONG QO :PA x “ACKNOWL oon 
B80 b0 bee 209 -LONG 60*12 ; Space Record Forward 
0 C 9C 1 ~LONG 1 ‘WR TE CHECK DATA FORWARD 
000000C 0A0 208 LONG 1 SWRITE DATA FORWARD 
00000C OAS -LONG 1 sREAD DATA FORWAR 
000000C ne 04 -LONG 1 sWRITE CHECK DATA REVERSE 
10 C AC 5 ~LONG 1 sWRITE DATA FORWA 
C 0 $ ~LONG 1 sREAD DATA REVERSE 
OGO01A4 4 -LONG 607 ;READ IN PRESET 
0 ; 8 8 38 -LONG QO sSET TAPE CHARACTERISTICS 
3 0 -LONG OQ ;SENSE TAPE CHARACTERISITCS 
6 C 10 -LONG 6 WRITE TAPE MA 
C C4 11 ~LONG \g s INTERNAL SPACE RECORD FORWARD 
C 8 \¢ -LONG 1 : INTERNAL SPACE RECORD REVERSE 
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3 ee 198 b0:49.59 
occ 14; 
cc 15 : DON'T CARE ERROR MASK TABLE 
beg i + THIS TABLE CONTAINS A MASK OF THE ERROR BIT 
695 18 3; FUNCTION WHEN EXAMINING THE DRIVE ERROR REG 
occ 0 
cc 1 XTAB: : 
occ 5 2 MASK <FMT,DPAR, INC, PEF ,NSG,FCE,CS, 
OcE § MASK § <FMT, DPAR, INC. PEF .NSG,FCE.CS. 
D 4 MASK | <FMT.DPAR,INC.PEF.NSG.CS,DTE. 
D 5 MASK  <FMT.DPAR.INC.PEF .NSG.FCE,CS, 
D4 6 MASK  <FMT,DPAR, INC, PEF .NSG.FCE,CS, 
0006 7 MASK <FMT,DPAR, INC. PEF .NSG.CS,DTE 
00D8 8 MASK <FMT.DPAR, INC .PEF .NSG,FCE,DTE 
OODA 529 MASK *DPAR. INC PEF .NSG,CS,DTE, 
00DC 3 0 MASK <FMT.DPAR, INC .PEF ,NSG,FCE,CS,} 
00D 1 MASK <FMT,DPAR, INC, PEF ,NSG,CS,DTE 
0060 «5 : MASK  <DPARD> WRIT 
QOE 5 MASK <> WRIT 
DOE, 234 MASK  <DPAR, FCE> SREAD 
0&6 535 MASK  <DPAR> [WRIT 
00E8 536 MASK <> WRIT 
OOEA 537 MASK  <DPAR, FCE> * READ 
OOEC 538 MASK  <FMT,OPAR, INC, PEF,NSG,FCE,CS, 
OOEE 539 MASK  <FMT.DPAR, INC.PEF .NSG.FCE.CS, 
OOFO 540 MASK <FMT,DPAR, INC, PEF .NSG,FCE.CS 
OOF2 541 MASK  <FMT,DPAR,FCE.DTE.COR> ;WRIT 
OOF4 248 MASK <DPAR, INC. PEF.FCE.CS,DTE.COR> ; 
00F6 54 MASK <DPAR. INC. PEF .FCE.CS,DTE,COR> : 
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eat ARE TO BE IGNORED FOR E 


P1.COR> :NO-OP 
PI,COR> :U 

+ SPAC e Five. PORWARD 

bt CoR> EWIND 

TE, OPI, “COR ; DRIVE CLEAR 
“SPACE FILE REVER 

i,t R> ERASE 

“SPACE RECORD REVERSE 

* ob COR> ;PACK ACKNOWLEDGE 


R> SPA Ace {RECORD FORWARD 
Cneee F 


;OP1,COR> SSET CHARACTERIST 
OPI -COR> SENSE CHARACTERI 


NTERNAL SPACE RECORD FORWAR 
NTERNAL SPACE RECORD REVERS 
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oF 45 : .SBTTL 1E16/TU77 FUNCTION DECISION TABLE 
: i : TE16/TU77 FUNCTION DECISION TABLE 
F 49 ° 
F 50 T™ -FUNCTABLE : FUNCTION DECISION TABLE 
OF 51 UNCTAB , SLEGAL FUNCTIONS 
OF 38 <NOP,- ‘NO OPERATION 
F 5 UNLOAD, = : UNLOAD VOLUME 
OOF 54 SPACERECORD, - :SPACE RECORDS 
OF 55 RECAL,= :RECALIBRATE (REWIND) 
OF 26 DRVCL [DRIVE CLEAR 
OF 5 READPRESET,= SREAD IN PRESET 
OOF 58 PACKACK,= ‘PACK ACKNOWLEDGE 
OOF8 559 ERASE TAPE, = SERASE TAP 
00F8 560 SENSECHAR,= ‘SENSE TAPE CHARACTERISTICS 
OOF8 561 SETCHAR,= 'SET CHARACTER 
O0F8 26g SPACEFILE,- :SPACE FILE 
OOF8 56 WRITECHECK,=- ‘WRITE CHECK FORWARD 
OOFB 564 WRITEPBLK,- ‘WRITE PHYSICAL BLOCK 
OOF8 565 READPBLK, - TREAD PHYSICAL 
OOF8 566 WRI TEMARK, = ‘WRITE TAPE MARK 
OOF8 567 AVAILABLE.- AVAIL ABLE (REWIND/NOWALT CLEAR VALID) 
OOF8 568 READLBLK,- SREAD LOGICAL BLOCK 
00OF8 569 WRITELBLK,- ‘WRITES LOGICAL BLOCK 
00F8 570 SENSEMODE.- [SENSE TAPE MODE 
00F8 571 ETMODE ,- [SET MODE 
00F8 378 EWIND,- SREWIND 
OOF8 57 WINDOFF,- SREWIND AND SET OFFLINE 
OOF8 574 SKIPRECORD,= SSKIP RECORDS 
OOF8 575 IPFILE,- :SKIP FILES 
OOF8 576 RITEOF ,- [WRITE END OF FILE 
00F8 577 READVBLK,- SREAD VIRTUAL BLOCK 
OOF8 578 WRITEVBLK,- "WRITE VIRTUAL BLOCK 
00OF8 579 ACCESS, - TACCESS FILE AND/OR FIND DIRECTORY ENTRY 
OOF8 580 ACBCONEROL ,- SACP ZONTROL TIO 
OOF8 581 CREATE TCREATE FILE AND/OR CREATE DIRECTORY ENTRY 
OOF 382 DEACCESS, = :DEACCESS FILE 
0OF8 58 DELETE,- [DELETE FILE AND/OR DIRECTORY ENTRY 
Org 584 MODIFY.= ‘MODIFY FILE ATTRIBU 
OF8 585 MOUNT> ‘MOUNT VOLUME 
0100 586 FUNCTAB ,- [BUFFERED 1/0 FUNCTIONS 
100 587 <NOP, = [NO OPERATION 
190 88 UNLOAD, = ZUNLOAD_ VOLUME 
10 SPACERECORD,- i SPACE RECORDS 
0100 590 RECAL,= RECALIBRATE (REWIND) 
100 591 DRVCLR,- SDRIVE CLEAR 
100 298 READPRESET,- TREAD IN PRESET 
100 59 CKACK,=~ SPACK ACKNOWLEDGE 
100 594 ERASE TAPE ,- SERASE TAPE 
100 595 SENSECHAR,= [SENSE CHARACTERISTICS 
1 0 36 SETCHAR,- ?SET CHARACTERISTICS 
1 9 SPACEFILE,- [SPACE FILES 
1 0 98 WRITEMARK.= [WRITE TAPE MARK 
1 9 SENSEMODE , = [SENSE MODE 
100 600 SE TMODE , = ?SET MODE 
100 601 REWIND, - REWIND 


| 
| 
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v04-000 Televtuy) FUNCTION DECISION TABLE g- att y 90:96:18 LORIVER. SREITMDRIVER MAR; 1 wee 
1 602 REWINDOFF,= ;REWIND AND UNLOAD 
1 6 SK IPRECORD,- ‘SKIP RECORDS 
1 604 SKIPFILE,= ‘SKIP FILES 
100 605 WRITEOF ,- [WRITE END OF FILE 
10 606 ACCESS, - TACCESS FILE AND/OR FIND DIRECTORY ENTRY 
190 60 ACPCONTROL,- SACP CONTROL FUNCTION 
100 608 CREATE,= SCREATE FILE AND/OR CREATE DIRECTORY ENTRY 
1 0 609 DEACCESS,= SDEACCESS FILE 
1 610 DELETE,- ‘DELETE FILE AND/OR DIRECTORY ENTRY 
0100 611 MODIFY.= [MODIFY FILE ATTRIBUTES 
0100 61g MOUNT> ‘MOUNT VOLUME 
19 61 FUNCTAB tACPSREADBLK,,- ‘READ FUNCTIONS 
1 614 <READLBLK, = TREAD LOGICAL BLOCK FORWARD 
108 615 READPBLK.= SREAD PHYSICAL BLOCK FORWARD 
0108 616 READVBLK> SREAD VIRTUAL BLOCK 
0114 «61 FUNCTAB +ACP$WRITEBLK,- ‘WRITE FUNCTIONS 
0114 618 <WRITECHECK, = SWRITE CHECK FORWARD 
0114 619 WRITELBLK,- :WRITE LOGICAL BLOCK 
0114 620 WRITEPBLK.= [WRITE PHYSICAL BLOCK 
0114 621 WRITEVBLK> “WRITE VIRTUAL BLOCK 
0120 62¢ FUNCTAB +ACPSACCESS,<ACCESS, CREATE> :ACCESS AND CREATE FILE OR DIRECTORY 
O12C 6 FUNCTAB +ACP$DEACCESS,<DEA cCESS> sDEACCESS FILE 
0138 624 FUNCTAB +ACPSMODIFY,- 
0138 625 <ACPCONTROL,= P CONTROL FUNCTION 
0138 626 DELETE,- [DELETE FILE OR DIRECTORY ENTRY 
0138 627 MODIFY> iMODIFY FILE ATTRIBUTES 
0144 628 FUNCTAB +ACPSMOUNT,<MOUNT> ‘MOUNT VOLUME 
0150 629 FUNCTAB +MTSCHECK ACCESS,- MA AGTAPE | CHECK ACCESS FUNCTIONS 
0150 630 <ERASE TAPE, = TERASE TAPE 
0150 631 URITEMARK, - [WRITE TAPE MARK 
0150 63¢ ITEOF> [WRITE END OF FILE 
015¢ = 63 FUNCTAB +EXESZEROPARN, - ZERO PARAMETER FUNCTIONS 
015C 634 NOP [NO OPERATION 
015¢ 9635 “UNL AD, i UNLOA D VOLUME 
015¢ 636 RECA AL - “RECALIBRATE (REWIND) 
015€C 637 REW! SREWIN 
015¢ 638 REUINDGFF - :REWIND AND SET OFFLINE 
015C 639 DRV [DRIVE CLEAR 
015¢ 640 PE ADPRESET, - SREAD IN PRESET 
015C 641 PACKACK PACK ACKNOWLEDGE 
015¢ b4¢ ERASETAPE ,- TERASE TAP 
015€C 64 SENSE CHAR, = > SENSE TAPE CHARACTERISTICS 
015C 644 SENSEMODE ,- SSENSE TAPE MODE 
o13¢ 645 WRITEMARK.= [WRITE TAPE M 
15¢ 646 AVAILABLE ,~ AVAILABLE (REWIND/NOWALT CLEAR VALID) 
015€C 64 WRITEOF> [WRITE END O 
016 648 FUNCTAB +EXESONEPARM, - ‘ONE PARAMETER FUNCTIONS 
168 64 <SPACERECORD.- TSPACE RECO 
168 650 SPACEF ILE :SP ACE rites. 
168 651 SKIPRECORD,- [SKIP RECORDS 
1 63¢ SKIPFILE> :SKIP FILES 
174 65 FUNCTAB +EXESSETMODE, - [SET TAPE CHARACTERISTICS 
174 654 <SETCHAR : 
174 655 SE TMODE ; 
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Youn OO CANCEL 1/0 ON CHANNEL gE bbe $b: 96:28 DRIVER. SRCJTMDRIVER.MAR; 1 ° (1 
! $37 ~SBTTL CANCEL 1/0 ON CHANNEL 
! 639 ; TM_CANCELIO = CANCEL 1/0 ON CHANNEL 
1 8 661 ; THIS ROUTINE IS CALLED WHEN THE LAST CHANNEL ASSIGNED TO A DEVICE IS DEASSIGNED, 
1 666 3; THE DEVICE IS DEALLOCATED, AND WHEN THE CANCEL I/0 ON CHANNEL SYSTEM SERVICE IS 
180 665 ; EXECUTED. 
180 664 ; 
180 665 ; INPUTS: 
180 068 ; 
0180 667 ; Re = NEGATIVE CHANNEL NUMBER. 
4 8 668 ; R5 = ADDRESS OF CURRENT I/0 REQUEST PACKET. 
1 669 ; R4 = CURRENT PROCESS PCB ADDRESS. 
0180 670 ; R5 = DEVICE UCB ADDRESS. 
0180 671; 
o138 ore 3 OUTPUTS: 
8136 674 ; If THE DEVICE IS CURRENTLY BUSY, DOING A REWIND, AND IN A WAITFOR INTERRUPT 
0180 675 ; STATE, THEN THE REWIND FUNCTION IS CANCELLED. 
0180 676 ;:- 
B138 677 
0180 678 TM_CANCELIO: ;CANCEL I/0 ON CHANNEL 
00000000 ' GF 16 0180 679 JSB G*I1OCSCANCELIO ;TEST IF FUNCTION SHOULD BE CANCELLED 
6F 64 AS 03 €1 0186 680 BBC #UCBSV_CANCEL ,UCBSW_STS(RS5) 30$ ;IF CLR, NO CANCEL PENDING 
0188 681 DSBINT ;DISABLE’ INTERRUPTS 
02 €1 0191 ret BBC #UCBSV_MT rr ~ : See if currently repositioning tape 
31 68 AS 0193 68 UCB$W_BEVSTS(RSS ,5$ ; due to POWERFAIL. If NOT, branch around | 
08 AB 0196 684 BISW #UCBSA_MT_CNCLP,- ; If $0, set CANCEL PENDING flag on. | 
68 AS 0198 685 UCB$W_DEVSTS(RS5 ; This bit is needed only if the driver 
019A 686 3 thread in POWERFAIL is currently 
019A 687 i not waiting for an interrupt. That 
019A 688 ; would imply that the driver thread 
019A 689 ; is on a resource wait queue and 
019A 690 ; would have to abort the operation 
019A 691 5 itself. 
019A one 
03 B3 OI19A 69 BITW #UCBSM_INT!UCBSM_TIM,=- 
64 AS 019C 694 UCB$W_STS(R5) ; Interrupt or timeout expected? 
57 13 O19€F 695 BEQL 208 : If NOT, branch around and Let CANCEL 
O1A0 696 : PENDING flag advise repositioning 
Bi hth 3 thread of the need to ABORT operation. 
C AA O10 99 BICW #UCBSM_MT_PWRFL!UCBSM_MT_CNCLP,- 
68 AS gia 99 UCBS$W_DEVSTS(R5) ; Here we are awaiting interrupt; so 
1a f 1 : we can safely kill the driver thread. 
50 24 A5 00 hy 7 ‘ VL UCBSL_CRB(R5),R ; RO => CRB. 
Bias 704 ASSUME IDBSL_CSR_ EQ 
50 2C BO 00 WY, f 5 VL @CRBSC_INTD+VEC$L_IDB(RO) ,RO ; RO => TMO3 CSR. 
24 rs D QIAC 7 5 PUSHL MT_TC(RO) ; Save currently selected drive. 
24 AO 00C6 C€ C 1AF 7 3 MOVZWL UCBSW_MT_TC(RS) .MT_TC(RO) ; Select this drive. 
51 % “0 4 185 7 MOVL MT_DSTROY,R1 ; Get this drive's status. 
4 AO BED 24 oy POPL MT_TCC(RO) ; Restore selected drive. 
1F 51 OD EO Q1BD ns BBS #MT_DS_V_PIP,R1,13$ ; Branch if tape is moving and thereby 
1c1—s 71 3 assume that it is rewinding. 
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Mara ti CANCEL I/0 ON CH L g7SEF =) 3b 88: + 8 LORIVER. SRCJ TMDRIVER. MAR; 1 ° ( 
01 AA QO1C1 714 BICw eveeen MT_REWIND,- ; Else since it is not moving, clear 
68 AS 1c 715 yee CBSW_BEVSTS(RS) ; rewind in progress flag and 
1D 2=o11 1s £8 $$ BRB 6$ 3; Branch around. 
0093 C5 93 91 1C7 718 CMPB # oF REWIND, UCBSB_CEN«RS) we in PROGRESS? 
c's: te = ore BEQL IF EQL 
0093 C5 10 91 1C 720 CMPB #COF_READPRESET, UCBSB_CEX¢ ti READIN PRESET? 
05 13 0103 721 BEQL : If eat yes 
OO —1 1D 7 ¢ BBC #UCBSV_MT_REWIND,=- 3; Is a RE IND in Mh she 
1D 68 A 0107 7 UCB$wW_BEVSTS(R5) ,20$ : If NOT, branch und. 
64 A503 8 O1DA 724 108: BITW FUCBSA. INT!UCBSM.TIM.UCBS$W STS(RDS S INTERRUPT OR TIMEOUT EXPECTED? 
7 1 §10F f 2 13$ BEQL 20$ y1F EQL N 
68 AS 01 A8 Ht 4 168 BISW #UCBSM_MT_REWIND,UCBSW_DEVSTS(R5) ;SET REWIND IN PROGRESS 
03 AA O1E4 729 BICW #UCBSM_INT!UCBSM_TIM,=- 
64 AS 0O1E6 730 UCBSW_STS(R5) 3 Clear thereby and timeout expected 
01E8 ey 3: and ah driver thread. 
01E8 7 ¢ SETIPL UCBSB_FIPL(RS) s LOWER 10" 'e 
50 2c 3c.) 0 O1EC 73 MOVZWL gree _ABORT, RO :SET ABORT TaTUG 
54 DD O1EF 734 PUSHL iSAVE CURRENT PROCESS PCB ADDRESS 
0940 30 O1F1 735 BSBW CT SKIT FINISH 1/0 OPERATIO 
54 BEDO O1F4 736 POPL RG t RESTORE CURRENT PROCESS PCB ADDRESS 
O1F7 737 208: ENBINT ‘LOWER TO FORK LEVEL 
0S OA 738 308: RSB ; 
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VOenOO8 START 1/0 OPERATION mea rat ee Be si tt 
1F6 740 .SBTTL START 1/0 OPERATION 
4 p46 ; TM_STARTIO = START 1/0 OPERATION ON DEVICE UNIT 
OIF ee ; THIS ENTRY POINT IS ENTERED TO START AN I/O OPERATION ON A DEVICE UNIT. 
1FB £46 : INPUTS: 
O1FB 747; 
O1FB 048 : R3 = ADDRESS OF I/O PACKET. 
O1FB «749: R5 = UCB ADDRESS OF DEVICE UNIT. 
0O1FB 750; 
O1FB £21 + OUTPUTS: 
O1FB £38 ; FUNCTION DEPENDENT PARAMETERS ARE STORED IN THE DEVICE UCB, THE ERROR 
O1FB 754: RETRY COUNT IS RESET, AND THE FUNCTION IS EXECUTED. AT FUNCTION COMPLETION 
O1FB 139 : THE OPERATION 1S TERMINATED THROUGH REQUEST COMPLETE. 
O1FB «757 
O1FB 758 TM_STARTIO: ;START 1/0 OPERATION 
0080 CS) «6~DO (O1FB) 759 MOVL th ergs heed ~ ; Remember tape position at STARTIO. 
oocc ¢5 O1FF 760 UCBSL_MT_ORGPOS (R5) 
0080 cS 0081 ¢5 90 0202 761 MOVB UCBSB“ERTHAR(RS) UCBSB ERTCNT(RS) j INITIALIZE ERROR RETRY COUNT 
009A CS) «620 AS — BO «(0209S 7% MOVW IRPSWTFUNC(R3) ,UCBSW_FONC(RS) AvE FUNC TION CODE Ano MODIFIERS 
OOBE CS 01 «=AE ~(O20F:)«= 76 MNEGW #1 .uCBsu MT SPACNTCR RS) sSET  péea T SPACING COU 
38 A3~=s «O00 $518 Se: MOVL IRPSL_MEBIATR3) RO 3GET PARAMETER LONGUORD 
0218 766; 
0218 767 ; MOVE FUNCTION DEPENDENT PARAMETERS TO UCB 
gee 
06 OO EF 0218 770 EXTZV #IRPSV_FCODE ,#IRPSS_FCODE,- ;EXTRACT 1/0 FUNCTION CODE 
51 20 A3 0218 «771 IRP$W_FUNC(RS) ,R1 
51 02 v1 O21E 77 CMPL Ss #108 SPACEF ILE: R1 i SPACE FILE FUNCTION? 
28 «413 «+0221 «#77 BEQL 10$ ~ F EQL Y 
51 09 D1 0223 77% CMPL  #10$_SPACERECORD,R1 : SPACE RECORD FUNCTION? 
36 «613 «0226 0=«(775 BEQL  20$ LY 
51 1A D1 0228 776 CMPL #10$_SETCHAR,R1 i T CHARACTERISTICS FUNCTION? 
55 13 0228 777 BEQL 50$ 
51 11 di 0 ¢0 778 CMPL #10$_AVAILABLE RI ZAVAILABLE function? 
69 13 0230 779 BEQL 6 75$ SIF EQL 
51 OD obi 0 32 780 CMPL #10$_READPBLK+1,R1 :D1sJOINt FUNCTION CODE? 
78 «(1A «(OO 3 781 BGTRU 100$ :IF GTRU N 
0237 Be ASE —_ R11, <= ‘ OTSPATCH LOGICAL FUNCTIONS 
0 PP 70$,- [REWIND AND SET OFFLINE 
7 784 60$,- :SET MODE 
0 7 785 80$,- s REWIND 
7 786 10$,- :SKIP FILE 
0237 «787 g08.- :SKIP RECORD 
0237 += 788 0$,- :SENSE TAPE MODE 
7 789 90$,- :WRITE EOF 
7 790 > Limi T=#108 REWINDOFF 
51 09 a2 0249 791 suBw —- #[0$_READPRESET-10$ -READPBLK~4,R1 CONVERT TO DENSE FUNCTION CODE 
oar | 4c «679 BRB 110$ : 
tf hoe 
aE 195 SPACE FILE FUNCTION = SET SPACE COUNT AND PROPER FUNCTION 
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51 
OOBE 
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ow 


ve | T 
I/ E 
4 ? 
4 ? 
5 ? 
5 
P) 
af 
5 
P) 8 
8 P) 
5 
8 5 
51 09 9A 5 
OOBE C5 50 AE 026 8 
0B 19 026 8 
51 O07 9A 026 8 
OOBE C5 50 B80 026 8 
50 50 «AE 8 ? 814 
7C AS) =650~—s«B0 ? 8 
7E AS 8650) =6—BO (027 8 
43 12 027 8 
51 00 9A 027 8 
3—E 3611 «028 8 
028 8 
028 8 
bse 8 
028 8 
028 824 
40 AS 38 A3 BO 028 8 
028 8 
028 8 
028 828 
028 8 
028 830 
42 AS 3A AS BO 028 8 
7C AS  =63C AS) =—BO (028 8 
> a2. t34 8 
2A «(11029 834 
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7 MAGTAPE DRIVER 16-SEP-1984 00: 
TION 82SEp= 1986 80; 
10$:  MOVZBL #CDF_SPCFILFOR,R1 
INCW | UCBSQ_MT_SPACNT (RS) 
TStW ORR 
GTR 408 
MOVZBL #CDF _SPCFILREV,R1 
2B 30$ 
; SPACE 
20$: MOVZBL #CDF_SPCRECFOR,R1 
MNEGW RO,UCBSW_MT_SPACNT(RS) 
BLSS 40 
MOVZBL M#CDF_SPCRECREV,R1 
MOVW RO, UCBSW_MT_SPACNT(RS) 
30$:  MNEGW RO,R 
40$:  MOVW  RO,UCBSW_BOFF (RS) 
MOVW RO, UCBSW_BCNT(R5) 
BNEQ 1108 
MOVZBL #CDF_NOP,R1 
BRB 1108 


AX/VM 
DRIVE 


99:59 


Dawn 


Macr 
~SRCJ «MAR; 1 


_ 
oo 


REVERSE 


RECORD FUNCTION = SET SPACE COUNT AND PROPER FUNCTION 


ECORD FORWARD 
NT 


R 
U 
ORWARD FUNCTION 
RECORD REVERSE 
¥ T 


N 
TIVE COUNT 


; SET CHARACTERISTICS FUNCTION = STORE NEW TAPE CHARACTERISTICS 


IRP$L_MEDIA(R3) ,UCBSB_DEVCLASS(R5) ;SET NEW DEVICE CLASS AND TYPE 


50$: MOVW 
: SET MODE FUNCTION - STORE NEW TAPE MODE 
60$:  MOVW  IRPSL_MEDIA+2(R3) ,UCBSW_ 
IRPSL-MEDIA+4(R3) .UCBSW_ 
MOVZBL #CDF_SETCHAR,R1 


; LOGICAL REWIND AND SET TAPE OFFLINE - 


70$:  MOVZBL #CDF_UNLOAD,R1 
BRB 110$ 


75$: 
MOVW = #108 REWIND! JO$M_NOWAIT, 
UCBSQ_FUNC(RS) 
BICw  #uCBs VALID - 
UCBSW_STS(R5S 


DEVBUFSIZ(R5) ;SET NEW DEFAULT BUFFER SIZE 
BOFF(R5) ;SAVE NEW TAPE CONTROL PARAMETERS 
7SET FUNCTION DISPATCH INDEX 


CONVERT TO UNLOAD FUNCTION 


SET FOR UNLOAD FUNCTION 


> AVAILABLE FUNCTION - Equivalent cf REWIND(NOWAIT) and clear of UCBSM_VALID. 


~; Simulate a REWIND NOWAIT. 


; And clear valid bit. . 
; and fall thru to rewind logic. 
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START 1/0 OPERATION -SEP=-1984 :59 (CDRIVER.SRCJTMDRIVER.MAR; 1 (1 
s 2¢ 3; LOGICAL REWIND FUNCTION = CONVERT TO PHYSICAL FUNCTION 
A 56 
51 03 9A O2A 3§ 80$:  MOVZBL #CDF_REWIND,R1 :SET FOR REWIND FUNCTION 
1 11.0 AB 38 BRB 110$ ; 
§ AD 60 : 
0 AD Bee : LOGICAL WRITE EOF OR SENSE MODE FUNCTION = CONVERT TO PHYSICAL FUNCTION 
AD 863° 
51 15 A2 O2AD 864 908: SUBW  #10$_SENSEMODE-10$_READPBLK=6,R1 ;CONVERT TO PHYSICAL FUNCTION 
0€ 11 : 69 BRB 110$ ; 
0589 BR? 
ose B08 : DENSE FUNCTION CODE = CHECK FOR READ, WRITE, OR WRITECHECK FUNCTION 
0282 870° 
51 OA 01 0282 871 100$: CMPL #10$_WRITECHECK,R1 DATA TRANSFER FUNCTION? 
09 1A 028 87¢ BGTRU 11087 + IF RU NO 
03 009A CS) «606 «CET «C02B?~—s«87 BBC #10$V_REVERSE ,UCBSW_FUNC(RS),1 s1F CLR, NOT REVERSE FUNCTION 
A D ADDW #CDF_QRITECHECKR-CDF_WRITECH hy - ZCONVERT TO REVERSE FUNCTION 
51 03 AO dep 874 _ORITECHEC F_WRITECHECK,R1. R 
osch 876 : 
02CO 877 : FINISH PREPROCESSING 
$5c0 89 
C ¢ : MOVB  R1,UCB$B_FEX(RS) ;SAVE FUNCTION DISPATCH INDEX 
0092 cS 51s) 0200 880 110$ 1,UCB$ 5 
ogee Ht 3 
02C5 883 ; CENTRAL FUNCTION DISPATCH 
02¢5 884 : 
02c5 885 
02¢5 886 FDISPATCH: SFUNCTION DISPAT 
58 AS DO 02C5 887 MOVL UCBSL_IRP(RS),R3 “RETRIEVE ADDRESS OF 1/0 PACKET 
D 2A A3. 08 £0 02¢9 888 BBS #IRPSU_PHYSIO, IRP$W_STS(R3),10$ ;1F SET, PHYSICAL I/O FUNCTION 
08 64 AS OB £0 OeCe 889 BBS #UCBSV-VALID,UCBS$W_STS(R5),10$ ;iF SET, VOLUME SOFTWARE VALID 
0254 8F 3C 02D 890 MOVZWL #SS$ VOL INV. RO 7SET VOLUME INVALID STATUS 
op8c = 31 0208 891 BRW RESETXF : 
0208 $9 3 
0 DB 894 : UNIT IS SOFTWARE VALID OR FUNCTION IS PHYSICAL 1/0 
0208 836 
8 DB 97 10$: 
53 24 a5 D0 O02DB 898 VL —s UCBSL_CRB(RS) ,R3 -GET ADDRESS OF CRB 
DF 899 ASSUME IDBSL~CSR 
53 2€ B3 DO O2dF 900 VL @CRBSC_INTD+VECSL_IDB(R3),R3 ;GET ADDRESS OF TMO3 CSR 
E3901 208: SBINT -O1 ABLE INTERRUPTS 
E6405 05 €0 0269 908 BBS #UCBSV_POWER,UCBSW_STS(R5) F 383° POWER FAILED 
968 A5 00 €1 0 EE 90 BBC #UCBSV-MT_REWIND,UCBSW_ pests erés $ :1F CLR, NO REWIND IN PROGRESS 
FS 904 WFIKPCH TIMEOUT, #60*7 “WAITFOR keuind- TO COMPLETE 
24 a3 00¢6 3 3c 60301 «= 905 MOVZWL UCBSW ate CCR), MT_TC(R3S ;SELECT DRIVE 
52 D0 0307 306 MOVL ple bStR READ DRIVE STATUS 
3 op EO 0308 9 BBS #mT_DS_V Bie, RB. 208 SIF SET, POSITIONING IN PROGRESS 
bo 5 1 €1 O30F 908 BBC #MT"DS"V~BOT.R [IF CLR. NOT AT BEGINNING OF T 
13 9 1OF ORK ‘CREATE FORK PROCESS 
19 910 SAVIPL ‘SAVE CURRENT IPL 
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VOenOO0 START 1/0 OPERATION ety Pi 88:98:38 DRIVER. SRCITMD DRIVER.MAR:1 eC). 
1¢ 911 308: — ENBINT ENABLE INTERRUPTS 
1F 916 REQPCHAN :REQUEST PRIMARY 1/0 INEL 
53 D0 3 91 MOVL R4,R3 SSAVE A DRESS OF 140370 VE REGISTERS 
54° °246 85 =O 914 MOVE UCBSL_CRB(RS) ,R4 ‘eer ADDRESS OF CR 
54 «20 AGO ¢ 915 MOVL  — CRBSLLINK(R4S ,R4 “GET ADDRESS OF SECONDARY CRB 
316 ASSUME DBS CSR EQ 
54 2¢ B4 00 0 0 91 MOVL @CRBSC_INTD+VECSL_IDB(R4),R4 ;GET ADDRESS OF MBA CSR 
50 0092 (5 9A 4 918 MOVIBL UCBSB_FEX(R5),RO ~ ;GET DISPATCH FUNCTION CODE 
0 9 919 CASE —RO, <= DISPATCH TO FUNCTION HANDLING ROUTINE 
9 920 NOP - RO OPERA T10N 
0339 921 NLOAD ; UNLOAD UME 
0339 «9 ; SPcriLfor, - SPACE FICE SPORWARD 
8 9 9 REW ee sR we 
339-904 DRVCLR [DRIVE CLEAR 
03 9 925 SPCFILAEV, - SPACE FILE REVERSE 
0339 926 ERAS SERASE TAP 
0339 927 sPcnecnev, - :SPACE RECORD REVERSE 
0339 928 PACKAC [PACK ACKNOWLEDGE 
0339 929 SPCRECT OR, - SPACE RECORD FORWARD 
0339 930 WRITECHECK,- [WRITE CHECK FORWAR 
0339 9931 WRITEDATA,- [WRITE DATA FORWARD 
0339 93¢ ATA, - [READ DATA FORWA 
0339 «93 WRITECHECKR,= [WRITE CHECK REVERSE 
0339 934 DATA, = [WRITE DATA FORW 
0339 935 READDATAR,= TREAD DATA REVERSE 
0339 936 READPRESET, - [READ IN PRESET 
0339 937 SETCHA [SET TAPE CHARACTERISTICS 
0339 938 SENSECHAR, - [SENSE TAPE CHARACTERISTICS 
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VOen OUD WRITE TAPE MARK FUNCTION ety 7 $896: 18 DRIVER. SRCITMDRIVER.MAR:1 © (1). 
941 .SBTTL WRITE TAPE MARK FUNCTION 
348 : WRITE TAPE MARK FUNCTION 
945 * | 
946 WRITEMARK: sWRITE TAPE MARK 
947 5$: EXFUNC 10$,F_WRITEMARK SEXECUTE FUNCTION 
0080 ¢5 6 948 INCL  UCB$L~RECORD(RS) [UPDATE TAPE POSITION 
61 3¢ 949 MOVZWL S*#SS$_NORMAL ,RO *SET NORMAL COMPLETION STATUS 
6FE 31 950 BRW FUNCXT : | 
333 | 
338 : FUNCTION ENDED IN AN ERROR 
955 : THE ERROR COULD BE A NONFATAL CONTROLLER OR DRIVE ERROR. FATAL ERRORS TERMINATE 
956 : THE FUNCTION IN THE FUNCTION EXECUTOR. 
958 : FATAL CONTROLLER ERRORS ARE: | 
960 ERCONF = ERROR CONFIRMATION. 
961 ISTO = INTERFACE SEQUENCE TIMEOUT. 
968 PGE = PROGRAMMING ERROR. | 
96 NED = NONEXISTENT DRIVE. 
RDTO = READ DATA TIMEOUT. 


; FATAL DRIVE ERRORS ARE: 
ILLEGAL FUNCTION. 


ILR = ILLEGAL REGISTER. 
NEF = NONEXECUTABLE FUNCTION. 
RMR = REGISTER MODIFY REFUSE. 


m 
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o 
aw 
” SP 
aaa 
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IGNORED DRIVE 


FMT = FORMAT. 
DPAR = DATA BUS PARITY. 
FCE = FRAME COUNT. 
DTE = DRIVE TIMING. 
COR/CRC = CORRECTABLE OR CHECK CHARACTER ERROR. 
NOTE THAT IT IS ASSUMED THAT MASSBUS EXCEPTION (MBEXC) WILL OCCUR ONLY IN 


T 
COMBINATION WITH ANOTHER DRIVE OR CONTROLLER ERROR. 


so 
o 
co 
Be Se Se Se Ge Ge Ge Ge Be Ge Ge Ge Ge Ge Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Se Se Se Ge Sete 
”_ 
im 
nn 


10S: TESTR 208 :TEST REMAINING RETRIES 
REQSCHAN SREQUEST SECONDARY CHANNEL 
EXFUNC DOUBLE,F_INTSPCREV [SPACE RECORD REVERSE | 
RELSCHAN RELEASE SECONDARY CHANNEL | 
08 OO9A CS OC EO 20¢: BBS #10$V_INHEXTGAP,UCBSW_FUNC(R5),30$ ;IF SET, NO EXTENDED GAPS | 
;WRITE EXTENDED INTER-RECORD GAP 
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EXFUNC ROUBLE .F ERASE 
cs BRB $ 
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ERASE TAPE FUNCTION “SEP=1984 
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CNAME WIN 0 OD NA UE WIN SO OOO NAME WIN 0 OD NAU EWN = OVD ONOAUES WO OONOUW 
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DRIVER. SR TMD DRIVER.MAR; 1 (1) 
~SBTTL ERASE TAPE FUNCTION 
ERASE TAPE FUNCTION 


ERASE sERASE TAP 
EXFUNC 10$ SEXECUTE FUNCTION 
MOVZWL S*#SS$ NORMAL RO SET NORMAL COMPLETION 
cLRW UcBsu rere (R5) ‘CLEAR FRAME COUNT 


; FUNCTION ENDED IN AN ERROR 


; THE ERROR COULD BE A NONFATAL CONTROLLER OR DRIVE ERROR. FATAL ERRORS TERMINATE 
; THE FUNCTION IN THE FUNCTION EXECUTOR. 


; FATAL CONTROLLER ERRORS ARE: 


ERCONF = ERROR CONFIRMATION 

ISTO = Pd hn SEQUENCE TIMEOUT. 
PGE = PROGRAMMING ERROR. 

NED = NONEXISTENT DRIVE. 

RDTO = READ DATA TIMEOUT. 


FATAL DRIVE ERRORS ARE: 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se 
— 
Lom 
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ILF = ILLEGAL FUNCTION. 
= ILLEGAL REGISTER. 
NEF = NONEXECUTABLE FUNCTION. 
RMR = REGISTER MODIFY REFUSE. 
UNS = UNSAFE. 
IGNORED DRIVE ERRORS ARE 
FMT = FORMAT. 
DPAR = DATA BUS PARITY. 
INC/VPE = INCORRECTABLE OR VERTICLE PARITY ERR 
PEF/LRC = FORMAT (PE) OR LONGITUDINAL PARITY ERROR. 
NSG = NONSTANDARD GAP. 
FCE = FRAME sore . 
DTE = DRIVE TIMING. 
OPI = OPERATION INCOMPLETE. 
COR/CRC = CORRECTABLE OR CHECK CHARACTER ERROR. 
10$: TSTL UCBSL_RECORD(RS) zANY RECORDS ON TAPE? 
BNEQ 2 :1F NEQ YES 
a ROUBLE. oF [REWIND REWIND TAPE 
20$: REQSCHAN REQUEST SECONDARY CHANNEL 
EXFUNC DOUBLE ,F_INTSPCREV 7BACK SPAC ae 
TSPCFOR SPACE RECORD 


Le DOUBLE ,F —IN 


FORWARD 
RELSCHAN RELEASE SECONDARY CHANNEL 
30$: BRW RETRY 3 


<- 
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UNCTIONS BrgEb-1984 00:19:59 EDRIVER.SREITMDRIVER.MAR;1 O° 2 


bene 


~SBTTL HOUSEKEEPING FUNCTIONS 
HOUSEKEEPING FUNCTIONS INCLUDE: 
PACK ts ama 


-TE16/TU 
EEPING F 
pc 1050 
pc 1051; 
pc 1 26 3 
pC 1053; 
DC 1054; 
pc (1055 ; NO OPER ATION, 
pc 1 28 ; DRIVE CLEAR 
0 DC 1057: SENSE T & CHARACTERISTICS, AND | 
oe 28 : SET FAPE. E AARACH ERISTICS. | 
bape 1980 3 If THE FUNCTION ENDS IN A NONFATAL DRIVE ERR OR IT IS RETRIED. FATAL ERRORS 
930 196) 3 TERMINATE THE FUNCTION IN THE FUNCTION EXECU 
030¢ 1068 ; FATAL DRIVE ERRORS ARE: | 
O3DC 1064 ; 
O3DC 1065 ; ILF = ILLEGAL FUNCTION. 
03DC 1066 : ILR = ILLEGAL REGISTER. 
O3DC 1067 ; NEF = NONEXECUTABLE FUNCTION (EXCEPT FOR DRIVE CLEAR). 
O3DC 1068 ; RMR = REGISTER MODIFY REFUSE. 
O3DC 1069 ; UNS = UNSAFE. 
03DC 1070 ; 
O03DC 1071 ; IGNORED DRIVE ERRORS ARE: 
03DC 1078 : 
O3DC (1073; FMT = FORMAT 
O3DC 1074: DPAR = DATA BUS PARITY. 
03DC 1075 ; INC/VPE = INCORRECTABLE OR VERTICLE PARITY ERROR. 
O3DC 1076; PEF/LRC = FORMAT (PE) OR LONGITUDINAL PARITY ERROR. 
03DC 1077; NSG = NONS T ANDARD GAP. 
03DC (1078; FCE = FRAME COUN 
03DC 1079 ; CS/ITM = CORRECTABLE “SKEW OR INVALID TAPE MARK. | 
03DC 1080 ; DTE = DRIVE TIMING. 
O3pC 1081 ; OPI = OPERATION INCOMPLETE. 
Bape 1086 : COR/CRC = CORRECTABLE OR CHECK CHARACTER ERROR. 
D4 | 
bape ee ; ADDITIONAL IGNORED DRIVE ERRORS FOR DRIVE CLEAR ARE: | 
03DC 1086 ; NEF = NONEXECUTABLE FUNCTION. 
O3DC 1087 : 
03DC 1088 ; PACK ACKNOWLEDGE 
O3DC 1089 ; 
03DC 1090 
03DC 1091 -ENABL LSB 
030C 109¢ PACKACK: :PACK ACKNOWLEDGE 
0306 109 EXFUNC RETRY “EXECUTE FUNCTION 
64 AS 0800 8F AB O3E1 109% 1SW #UCBSM_VALID,UCBSW_STS(R5) ;SET VOLUME SOFTWARE VALID | 
74 11 O3E7 1095 BRB 30$ : 
3E9 1099 | 
Py } 
a 1038 : NO OPERATION, SENSE CHARACTERISTICS, AND DRIVE CLEAR. 
3 | 
E9 1100 | 
3E9 1101 NOP: yNO OPERATION 
E9 11 g SENSE CHAR: : SENSE CHARACTERISTICS 
E9 1103 DRVCLR: *DRIV 
E9 1104 EXFUNC RETRY S EXECUTE HOUSEKEEPING FUNCTION 
6D (11 Fe 1105 BRB 30$ ; 
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: SET TAPE CHARACTERISTICS 


:SET TAPE CHARACTERISTICS 

RETRY “EXECUTE FUNCTION 
#MTSV_DENSITY,AMTSS_DENSITY,- ;EXTRACT DENSITY CODE 
UCBSW~BOFF (R55 ,RO ; 

#4,RO [CALCULATE BIT NUMBER 

0 #4 DENSITY RO “EXTRACT DENSITY CODE 

MTSV_FORMAT ,AMTSS_FORMAT,- ;EXTRACT FORMAT CODE 

gcasu “BOFF (RS) ,R1 : 

4,R1~ *CALCULATE BIT NUMBER 
R1,#4,FORMAT,R1 ‘EXTRACT FORMAT CODE 
#MTSM’FORMAT.R3 [SET INITIAL MASK WORD 
#MT_DS_V_BOT,R2,10$ s1F CLR, TAPE NOT AT BEGINNING 


; TAPE DENSITY CAN ONLY BE SET WHEN THE SELECTED DRIVE IS AT BEGINNING OF TAPE 


O>>me Oo 


RO,#MT_TC_V_DEN ;SET NEW DENSITY 
amt _TC7S DER, UCéSu_ MT_TC(RS) ; 
mnrsn BENSITY,R3 :SET DENSITY MASK BITS 
TC_M EPAR.UCBSW_MT_TC(R5) ;CLEAR EVEN PARITY 
anTSH PARITY Ucber BEVBEPEND(R5) :CLEAR EVEN PARITY 
#MT_TC_V_DEN+2,UCBSW_MT_TC(R5),20$ ;1F SET, PHASE ENCODED TAPE 


; TAPE PARITY CAN ONLY BE SET IF NRZI FORMATTED TAPE IS BEING READ OR WRITTEN 


BRR RR RRR RRR RRR RRR ERE EE RAW 
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#MTSV_PARITY,UCBSW_BOFF(RS),20$ IF CLR, opp PARITY 
#mt_TC_M_EPAR, UCBSO_M MT_TC(R5) ;SET EVEN PARITY 
ent sn PARITY sSET PARITY MASK BIT 
mnt -1Cey SEL “SET NEW FORMAT 

att FSEL uchsw_M TE(RS) ; 
R3, OCS - DEVDEPEND CRE)” ZCLEAR OLD FIELD VALUES 
RS. R : COMPLEMENT 

3 UCBSW_BOFF (RS) “CLEAR FIELDS NOT BE BE INSERTED 

ueesu -BOFF (RS) UCBSL_DEVDEPEND(R5) ; INSERT NEW FIELD VALUES 
ati FC(RSS sCLEAR SAVED FRAME COUNT REGISTER 
SHaSS8. NORMAL’ RO 3SET NORMAL COMPLETION 
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REWIN UNLOAD FUNCTIONS “-SEP-19 
res 1} ; ~SBTTL REWIND AND UNLOAD FUNCTIONS 
128 1 5 ; REWIND AND UNLOAD FUNCTIONS INCLUDE: 
467 1157; Reap oaeser, 
ae : 
0467 1161 ; IF THE FUNCTION ENDS WITH A NONFATAL DRIVE ERRORS IT IS RETRIED. FATAL ERRORS 
ree 1186 3 TERMINATE THE FUNCTION IN THE FUNCTION EXECUTOR. 
467 1164 ; FATAL DRIVE ERRORS ARE: 
467 1165 ; 
0467 1196 : ILF = ILLEGAL FUNCTION. 
0467 1167 ; ILR = ILLEGAL REGISTER. 
0467 1168; NEF = NONEXECUTABLE FUNCTION. 
0467 1169 ; RMR = REGISTER MODIFY REFUSE. 
tu 1170 ; UNS = UNSAFE. 
467 1171; 
0467 1178 3; IGNORED DRIVE ERRORS ARE: 
0467 1173; 
0467 1174; FMT = Aone 
0467 1175; DPAR = DATA BUS PARITY 
0467 1176; INC/VPE = INCORREC TABLE OR VERTICLE PARITY ERROR. 
0467 1177; PEF/LRC = FORMAT (PE) OR LONGITUDINAL PARITY ERROR. 
0467 1178; NSG = lg ARD GAP. 
0467 1179 ; FCE = FRAME COUNT. 
0467 1180 ; CS/ITM = CORRECTABLE SKEW OR INVALID TAPE MARK. 
0467 1181 ; DTE = DRIVE Tl 
0467 1186 F OPI = OPERATION INCOM PLETE. 
0467 1183; COR/CRC = CORRECTABLE OR CHECK CHARACTER ERROR. 
0467 1184; 
0467 1333 
0467 1186 READPRESET: Aha IN PRESET 
54 AS BS 0467 1187 TSTwW UCBSW_UNIT(RS) T ZERO? 
03 13 Q46A 1188 BEQL WIN at iro L YES 
50 03 QA geet 1155 MOVZBL #CDF_REWIND,RO [CONVERT FUNCTION TO REWIND 
46F 1191; 
46F 1138 3; UNLOAD AND REWIND FUNCTIONS 
46F 1193; 
46F 1194 
46F 1195 REWIND: dea be BEGINNING OF TAPE 
46F 1136 UNLOAD: : UNLOAD 
00B0 (5 D4 rey 119 CLRL UCBSL_RECORD(R5) 3 nce ve wiht REWIND, ah current 
4 1198 ; rpes" tion is of no inte 
473 1199 3 is insures that UCBSL "RECORD will 
473 1200 ; be correct if we do a REWIND nowait. 
ooce C5) =—& S475) =—1201 CLRL UCBSL_MT_ORGPOS(R5) 3 with ee the original position 
477 1 8 ; is of no interest. If we should 
477 1 : fo edt 3 POWERFAIL this will reset us 
477 1204 3 sperere retrying. 
477 1205 EXFUNC LOSTPOS sEXECUT T 
OBC C5 Re 47 1 $ CLRW UCBSW_MT_FC(RS) 7 CLEAR SAVED FRAME Fount anne 
0 1 C 04 1 MOVZWL S$*#SSS_NORMAL ,RO :SET NORMAL COMPLETION Tus 
06 § EO 04 1 3 BBS #MT_DS-V_MOL,R2,10$ -IF SET, MEDIUM ONL IN Ne 
64 AS 0800 8F AA 04 1 BICW #UCBSM- VALID: -UCBSW_ STS(R5) ;SET VOLUME SOFTWARE INVALID 
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voenOun. SPACING EUR CTYONS moet 1 88: +e 8 ¥O DRIVER. SRCJTMDRIVER.MAR: 1 
49 i .SBTTL SPACING FUNCTIONS 
49 1 : SPACING FUNCTIONS INCLUDE: 
490 1 16 : SPACE FILE FORWARD, 
490 1217: SPACE FILE REVERS 
490 1 18 ; SPACE RECORD YER UARD, AND 
630 19 : SPACE RECORD REVERSE. 
0490 ! ALL ARE IMPLEMENTED VIA THE SPACE RECORD FUNCTIONS. 
490 1223 : A SPACING FUNCTION CAN END WITH A NONFATAL DRIVE ERROR. FATAL ERRORS TERMINATE 
0490 4 : THE FUNCTION IN THE FUNCTION EXECUTOR. 
0490 6 : FATAL DRIVE ERRORS ARE: 
0490 1228 : ILF = ILLEGAL FUNCTION. 
0490 1229 : ILR = ILLEGAL REGISTER. 
0490 1230: NEF = NONEXECUTABLE FUNCTION (FORWARD FUNCTIONS). | 
0490 1331 : RMR = REGISTER MODIFY REFUSE. | 
0490 125¢ UNS = UNSAFE. | 
0490 34 : NONFATAL DRIVE ERRORS ARE: 
gigs gab: feet faungoy but Pay 
: = NONEXECUTABLE FUNCTION (REVERSE FUNCTIONS INTO BEGINNING OF TAPE). 
B80 1339 ; OP 2 OPERATION INCOMPLETE (REVERSE FUNCTIONS INTO BEGINNING OF TAPE). 
0490 1240 ; 
0490 1241 : IGNORED DRIVE ERRORS ARE: 
$290 i rk ; FMT = FORM | 
880 i 43 ONC TVPE ° DATA BUS aRITy, VERTICLE PARITY ERROR. 
ve ae 4 : PEF/LRC = FORMAT (PE) OR LONGITUDINAL PARITY ERROR. 
= 
0490 is CS/1TR > CORRECTABLE SKEW OR INVALID TAPE MARK. 
0490 1250 : COR/CRC = CORRECTABLE OR CHECK CHARACTER ERROR. 
9490 3g > SPACE FILE FORWARD 
0490 1254 : SPACING FILES IS ACCOMPLISHED BY SPACING A VERY LARGE NUMBER OF RECORDS. 
: RECORD SPACING OPERATION COMPLETES WITHOUT ERROR, THEN THE RECORD 
0489 i 56 : COUNT IS: INCREASED BY 65,536 AND THE SPACING OPERATION [S CONTINUED 
‘3 38 ; SEVERAL SPECIAL CONDITIONS CAN ARISE DURING A SPACE FILE FORWARD: 
490 1260 : 1. A CONTROL BUS PARITY ERROR OCCURS. 
4 i 8) : THE OPERATION IS MERELY RETRIED SINCE TAPE MOTION COULD 
490 1 8 ; NOT HAVE OCCURED. 
43 i g : 2. AN END OF TAPE IS ENCOUNTERED WITHOUT AN END OF FILE. 
490 1266 : 
: THE OPERATION 1S CONTINUED SINCE END OF TAPE WHILE FILE 
49 i $f : SKIPPING DOES NOT TERMINATE THE OPERATION. 
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490 1 $8 H 
23 ! oY ; 3. AN END OF FILE IS ENCOUNTERED. 
490 1 i 3 THE FILE SKIP COUNT IS DECREMENTED AND IF NONZERO, THE 
O49 i te ; OPERATION IS CONTINUED. 
49 1275 ; UNLESS A HARD ERROR IS ENCOUNTERED, NORMAL COMPLETION IS ALWAYS RETURNED 
bt86 ! 6 ; FOR A SKIP FILE FORWARD FUNCTION. 
B43 1278 ; AS RECORDS ARE SKIPPED FORWARD ON THE TAPE, THE CURRENT TAPE POSITION IS 
eh ! 5 MAINTAINED BY ADDING THE NUMBER OF RECORDS AND TAPE MARKS SKIPPED OVER. 
$290 1281 
oh ! ¢ SPCFILFOR: :SPACE FILE FORWARD 
0490 1284 ; Before proceeding with the SKIP function, we backspace one tape position | 
0490 1285 ; (be it record or TAPEMARK) and then forward space one geetsien to 
0490 1586 3 Geteraine if we are currentty positioned sqegecetety at 
0490 1287 ; TAPEMARK. If so we record the current position in cB$L emt *PREVTM. 
0490 1288 ; If we ~~ not currently at a TAPEMARK, we move negative 2 to 
0490 1289 ; UCBSL_MT_PREVTM. 
0490 1290 ; 
0490 1291 
50 02 43 049 1996 MNEGL AT : Initialize RO = -2. 
52 046 A3 IE 78 0493 129 ASHL {-MT_DS_V_BOT.MT_DS(R3) ,R2 ; See if at BOT. | 
48 19 0498 1294 BLSS = 4$ ; LSS implies at BOT. 
0080 cS”) been : 32 TSTL UCBSL_RECORD(R5) 3 ‘Le at physical BOT see if at logical 
42 13 ore ! 44 BEQL 4$ ; EQL implies logical BOT. 
QOBE CS) BO O4A0 1299 MOV UCBSW_MT_SPACNT(R5), 3; Copy spacing porenctor to safe 
o0ocs c5 04A4 1300 CBSL Mla Sy Lt} ; _keeping plac 
OOBE C5 01 AE OQO4A7 1301 MNE #) -UCeSy PACNT(R5) ; Indicate that. we will backspace 1 position. 
O4AC 1308 EXF PERE (Rev 3; Backspace 1 tape position. 
0484 1303 1$: CHECK_ERR RROR | 
0080 ¢5 —7 on 1305 DECL UCBSL_RECORD(R5) ; Update tape position marker. | 
OOBE C5 O01 AE v4BB 1 Be MNEGW #1 oycesy MT_SPACNT(RS) ; Now we will forward space 1 position. 
gece 130 EXFUNC 2$,.F SPCRECFOR ; Forward space 1 tape position. 
04C8 1308 2$: CHECK_ER ‘‘- 
0080 C5 D6 04CB 1309 INCL yn prams ; Update tape position marker. 
50 02 CE O4CF 1310 MNEGL ; RO = -2 which would ey Be shat a“ are 
0402 1311 3; not jened*etery poet 2 APE 
05 3fe 0¢ E1 Q4D2 1 \¢ BBC #MT_DS_V_TM,R2,3$ 3 ine if we are NOT a TAPEMARK g ee 
50 0080 C5 00 406 13 . MOVL UCBSL SRE CORD (AS). RO : Else RO = current Soee position. 
00c8 CS) «BO «20408 «21315 MOVW UCBSL_MT_PREVTM(RS),-  ; Restore al eyious value to 
Ogee 2 4DF 1 18 ucesy, ar. ~SPACNT (R5) ; UCBs 
00c8 C 0 00 433 1317 4$: RO UCB Lent TPREVTRCRS) :_ Init hat iz8 previous TAPEMARK indicator. 
4E7 1 18 5$: EXFUNC 108, F CFOR FeXECUTE. FUNC 
0082 3 % rt : y? we cage -RErORDe (R5) ;UPDATE TAPE POSITION 
ar 1321 10$: CHECK > CHECK FOR FATAL OF RETRIABLE ERROR 
50 c cS af 4-8 1 ¢ soviuce wate MT_FC(RS) RQ [GET NUMBER OF RECORDS SKIPPED OVER 
0080 f 0 ¢ 4FD 1 ADDL pe UCest “RECORDIR ) [UPDATE TAPE POSIT 10N 
—E1 52 ¢ €1 502 1324 BBC V"TM,R2,5$ s1F CLR, TAPE MARK NOT ENCOUNTERED 
7¢ AS) B7 «(0506-1325 DE CW vcesu SBOFF CRS) :DECREMENT NUMBER or FILES TO SKIP 
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oc8 ¢ C3 309 1 $ SUBL3. UCBSL_MT_PREVTM(RS) ,= 
50 0B0 C 50D 1 UCBS$L_RECORD(R5) ,RO ; RO = distance between last 2 TAPEMARKs 
080 ¢5 «po «(0511 1 3 MOVL UCBSLIRECORD(RS),- 
oc 3 Te yt bat MT_PREVTM(RS 3; Remember position of this TAPEMARK 
1 £1 0518 1330 BBC #DEVST_MAT,- 
05 38 AS S1iA 1331 yt bel BEVCHAR(R5),20$ ; If NOT mounted, go test for EOv. 
18 €1 OS1ID 1 ¢ BBC #DEVS0_FOR,- 
04 38 AS OSiF 1 UCBSL_BEVCHAR(R5),30$ ; If mounted NOT foreign (i.e. the ACP 
2 } : ; is involved) branch around test EOV. 
2 : § 208: ; If here volume is either NOT mounted or mounted FOREIGN. 
50 od7 Q5 1 35 DECL RO ; See if last 2 TAPEMARKs adjacent 
08 13 82 ¢ : 73 BEQL 40$ ; EQL implies adjacent TAPEMARKs 
; 83 : $ 30$: ; If here either ANSI mounted tape or EOV test failed. 
7C AS =6BS «(0526 «1 23 TSTW = UC BSW_BOFF (R5) ; See if we have more TAPEMARKs to skip | 
gos HF Se TS | BM? bmn ‘pbadeniels 
OOF 31 See 13 40$:  BRW SETEOV ; Branch around to return ENDOFVOLUME status. 
0531 1348 ; 
O33 1302 ; SPACE FILE REVERSE 
0531 1351 : SPACING FILES IS ACCOMPLISHED BY SPACING A VERY LARGE NUMBER OF RECORDS. 
0531 1338 ; IF THE RECORD SPACING OPERATION COMPLETES WITHOUT ERROR, THE THE RECORD 
B23) 1327 3 COUNT IS REDUCED BY 65,536 AND THE SPACING OPERATION IS CONTINUED. 
B23) 132? : SEVERAL SPECIAL CONDITIONS CAN ARISE DURING A SPACE FILE REVERSE: | 
0531 1357 : 1. A CONTROL BUS PARITY ERROR OCCURS. | 
0531 1359 ;: THE OPERATION IS MERELY RETRIED SINCE TAPE MOTION COULD | 
833! 1360 ; NOT HAVE OCCURED. 
a3 136 ; 2. AN END OF TAPE IS ENCOUNTERED WITHOUT AN END OF FILE. | 
0531 1364 : THE OPERATION IS CONTINUED SINCE END OF TAPE WHILE FILE | 
033] 1366 ; SKIPPING DOES NOT TERMINATE THE OPERATION. 
0531 $ : 3. A BEGINNING OF TAPE IS ENCOUNTERED. 
09 $9 ; THE OPERATION IS IMMEDIATELY TERMINATED. 
05 4 : 4. AN END OF FILE IS ENCOUNTERED. 
531 1 5g : THE FILE SKIP COUNT IS DECREMENTED AND IF NONZERO, THE 
2 r ; OPERATION IS CONTINUED. 
531 1 4 : UNLESS A HARD ERROR IS ENCOUNTERED, NORMAL COMPLETION IS ALWAYS RETURNED 
; : , : FOR A SKIP FILE REVERSE OPERATION. 
531 1 8 ; AS RECORDS ARE SKIPPED BACKWARDS ON THE TAPE, THE CURRENT TAPE POSITION 
: : ; e 3 1S MAINTAINED BY SUBTRACTING THE NUMBER RECORDS AND TAPE MARKS SKIPPED 
$31 1382 : : 
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SEVERAL SPECIAL CONDITIONS CAN ARISE DURING A SPACE FORWARD: 
1. A CONTROL BUS PARITY ERROR OCCURS. 


THE OPERATION IS MERELY RETRIED SINCE TAPE MOTION COULD 
NOT HAVE OCCURED. 


2. AN END OF TAPE IS ENCOUNTERED WITHOUT AN END OF FILE. 
5 Fleets IS TERMINATED WITH A FINAL STATUS OF END OF 


; SPACE RECORD FORWARD | 
| 


3. AN END OF FILE IS ENCOUNTERED. 
5 gata IS TERMINATED WITH A FINAL STATUS OF END OF 


BY ADDING THE TOTAL NUMBER OF RECORDS SKIPPED OVER. 


: 
| 
; UNLESS A HARD ERROR IS ENCOUNTERED, THE CURRENT TAPE POSITION IS MAINTAINED | 
: 


e it record or TAPEMARK) and then forward space one goats ten to 
deternine if we are currentty positioned langetotety at 
TAPEMARK. If so we record the current position in cBSt MT *PREVIM. 
If we are not currently at a TAPEMARK, we move negative 2 to 
jeese _MT_PREVTM. 


oe :%8 Initialize RO = -2. 
{-MT_DS_V_BOT.MT_DS(R3) ,R2 See if a t BOT. 
ties at BOT. 


L } 
TSTL UCBSL_RECORD(RS) : If wot’ at Sapelent BOT see if at logical | 
BEQL «4S ; EQL implies logical BOT. 
MOVW UCBSW_MT_SPACNT(R5),- ; Copy spacing parameter to safe 
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oY 4 
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¢ SPCRECFOR: SPACE RECORD FORWARD 
: : Before Flag agin with the SKIP function, we backspace one tape position 
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v04-000 SPACING FUNCTIONS g- -SEP=- =}382 88: 9: 8 DRIVE R.SR REIT MDRIVER.MAR; 1 - (1) 
pgcs &3 571 1440 UCBSL_MT_PREVTM(RS) 3; _keeping place 
OOBE C 1 AE 0574 1441 MNEGW #1,UCBSW-MT_SPACNT(R5) ; Indicate that. we will backspace 1 position 
579 1986 EXFUNC 1$,F SPCRECREV ; Backspace 1 tape position. 
581 1443 1$: CHECK_ERROR 
0080 ¢5~ «O07? : 4 be: DECL UCBSL_RECORD(RS) 3; Update tape position marker. 
O08E CS) «401 =AE «O05 H 1368 MNEGW #1,UCBSW_MT_SPACNT(RS5) ; Now we will forward space 1 position. 
3 g 1902 - extyac 2s _SPCRECFOR ; Forward space 1 tape position. 
0080 ¢5 «6 0598 «21449 ~—C INCL ~ UCBSt RECORD(RS) iv date tape. position marker. 
50 02 CE 059C 1450 NEGL $ would septs 30 shat ave are 
SOF 192) 3 * aeondianel past a TAPE 
05 52 0 E1 SOF 14 § BBC #MT_DS_V 2,38 ; And if we are NOT at TRPEMARI "Sond 
50 0080 C dO Boas 163? 3s MOVL uCcBSL SRECORDC R5) RO : et se RO = current tape position. 
00c8 cS) BO O(0SA8 «21455 —O MOVW UCBSL_MT_PREVTM(RS),- ; Restore reins value to 
OOBE C5 OSAC 1456 Uresy MT~ _SPACNT(R5) : UCBSW_M 
00c8 CS = 550) «DO sCOSAF «1457 4$: MOVL UCBSL“MT_PREVTM(RS) : Initialize previous TAPEMARK indicator. 
0584 1458 EXFUNC 106, F_SP BCR ECFOR ;SPACE RECORD FORWARD 
03 11 OSBC 1459 R 
OSBE 1460 10$: HECK _ERROR CHECK FOR FATAL OR ws ot ERROR 
50 D4 Q5C1 1461 20S: CLRL RO *CL EAR UPPER HALF OF REGISTER 
50 7C AS ooBCc C5 Al 05C3 1298 ADDW3 UCBSW_MT_FC(R5) ,UCBSW Bok F (RS) RO te RECORDS SKIPPED 
5 50 CO OSCA 146 ADDL RO ucBst “RECORD (RS) UPDAT ATE T APE POSITION 
7C AS OOBC C5 AE OSCF 1464 MNEGW UCBSW yar et) UCBSW Bok (RS) SET REMAINING RECORD SKIP COUNT 
4E 52 02 E71 0505 1465 BBC #MT bs” Vv" TM, NORXIT f not at TAPEMARK, goto poem exit. 
13. +€1 O5D9 1466 BBC ADEN SN MAT,- : If NOT mounted and at TAPEMAR 
05 38 AS 0508 1467 UCBSL Bee caacas), 30$ ; go test if at ENDOF VOLUM Re 
18 €1 OSDE 1468 BBC #DEVST_FOR,- If mounted ANSI (i.e NOT OP. 
6E 38 AS O3Ee 1668 UCBSL_BEVCHAR(RS),SETEOF: go to set EOF status. 
OSE3 1471 30$: ; If here we are at TAPEMARK and the volume is either NOT mounted or 
Sze 1076 F mounted foreign. 
00c8 CS) C3) «(OSES «(1474 SUBL3 UCBSL_MT_PREVTM(RS),- ; Calculate the _whetence between Last 
50 0080 C5 OSE7 1475 UCBSL_RETORD(RS) ,RO 3 two TAPEMA 
50 D7 OSEB 1476 DECL RO 3; See if last #3 TAPEMARKs adjacent. 
3D 13. OSED 1477 BEQL SETEOV 3; EQL tap) ies ENDOF VOLUME. 
60 11 OSEF 1478 BRB SETEOF ; If NOT EOV, then EOF. 
OSF1 1479 
OSF1 1480 ; 
bart 1? 1 ; SPACE RECORD REVERSE 
part 1? $ ; SEVERAL SPECIAL CONDITIONS CAN ARISE DURING A SPACE RECORD REVERSE: 
O51 14 5; 1. A CONTROL BUS PARITY ERROR. 
SF1 14 : : THE OPERATION IS MERELY RETRIED SINCE TAPE MOTION COULD 
ft 1? 8 : NOT HAVE OCCURED. 
oF! 1490 : 2. A BEGINNING OF TAPE IS ENCOUNTERED. 
5F1 1436 : THE OPERATION IS TERMINATED WITH A FINAL STATUS OF END OF 
oF 1490 ces 
at 1495 : 3. AN END OF TAPE IS ENCOUNTERED WITHOUT AN END OF FILE. 
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vou 008 SPACING FUNCTIONS ~$ee=13Be Boss si59 EDRIVER.caeaembatven.mar;1 2° 39). 
SF1 1497 ; THE OPERATION IS CONTINUED SINCE AN END OF TAPE WHILE 
5F1 1338 ; SKIPPING RECORDS BACKWARDS DOES NOT TERMINATE THE OPER- 
eft 1338 3 ATION. 
03F1 FH} : 4. AN END OF FILE IS ENCOUNTERED. 
5F1 1508 : THE OPERATION IS TERMINATED WITH A FINAL STATUS OF END OF 
| bar} 1808 | hers | 
OSF1 1306 ; UNLESS A HARD ERROR IS ENCOUNTERED, THE CURRENT TAPE POSITION IS MAINTAINED | 
03F1 1308 3 BY SUBTRACTING THE TOTAL NUMBER OF RECORDS SKIPPED OVER. 
5F1 «1509 ° 
OSF1 1510 SPCRECREV: ;SPACE RECORD REVERSE 
03 1 berg 131) hide 10$,F SPCRECREV EXECUTE FUNCTION 
pore 1318 10$: CHECK_ERROR i CHECK FOR FATAL OR a ERROR 
50 D4 SFE 1514 208: CLRL RO CL EAR UPPER HALF OF REGIST 
50 7C AS  OO0BC C5 Ai 0600 1515 W3 UCBSW_MT_FC(RS) ,UCBSW Boi F(R) RO te cH: RECORD SKIP COUNT 
0080 (5 §=650 3=6—C2S(0607 1316 L 0, UCBSL-RECORD(RS) PDATE TAPE POSITION 
7c AS) «600BC CS AE «O60: 151 MNEGW UCBSW_MT-FC(R5) ,UCBSW_B off crs) ‘5 SET REMAINING RECORD SKIP COUNT 
OOBE C5 00BC C5 B0 Bei é 1518 MOVW UCBSW_MT_FC(R5) ,UCBSW “AT _SPACNT(R5) ;RESET SPACING COUN 
34 52 f 3 061 1519 BBS #MT g yTTNGRZ, SETEOF TIF SET, END OF FILE ENCOU ooeeD 
0 1 061D 1520 BEQL NORRIT 3IF EQL L ALL RECORDS SPACED OVER 
2E 52 01 EO O61F 1521 BBS #MT_ -V-B0T RE. -SETEOF ;IF SET, BEGINNING OF TAPE ENCOUNTERED 
CA 52 OA €0 0623 15 : BBS #MT-DS-V~EOT.R2, SPCR PCREY ;1F SET, AT END OF TAPE 
BF 1s 
0627 1395 > NORMAL SPACING FUNCTION EXIT 
o657 1859 
0627 1 8 -ENABL LSB 
50 01 3C 0627 1529 NORXIT: MOVZWL S*#SS$_NORMAL,RO 3;SET NORMAL COMPLETION STATUS 
2A 11 062A 1530 BRB 10$ $ 
gt ie 
ge : 1338 Backspace over 2nd TAPEMARK and set ENDOFVOLUME return status 
¢ f 1335 conte 
OOBE CS O01 AE OQ62C 1537 " MNEGW #1,UCBSW_MT_SPACNT(RS) ; Don't space back more than 1 tne position | 
0631 1398 EXFUNC 2$.F F_SPCFILREV 3; Backspace one tape position 
0639 1539 3 epeei sien us between the ws *O APEMARKS. 
$3? 1329 2s: CHECK_ERROR 3; Check for hornet spacing errors. 
OE 52 O02 #€1 O63C 1541 BBC #MT_OS_V_TM,R2,4$ : If NOT at TAPEMARK, branch back to error. 
0080 CS D7 «(0640 1348 DECL  UCBSL_RETORO(RS) ‘} Update position in UCB. 
CAS B6 0644 154 INCW ycBsuy _BOFF (RS) ; Add one to total of files or 
47 1544 3; records left to skip. \ 
50 O9A0 8F 3¢ 647 1545 MOVZWL 9 #SSS$_ENDOF VOLUME ,RO 3; Set ENDOF VOLUME ne 
11 064C 1266 BRB 10$ ; Branch around to retur 
O3AF 31 oh 1348 4$: BRwW DOUBLE 3; If not at a TAPEMARK, a error. 
651 154 : 
651 1550 ; SET EOF OF FILE STATUS 
$8) 1882 
50 0870 8F 3¢ 651 1328 SETEOF: MOVZWL #SSS_ENDOFFILE,RO 3SET END OF FILE STATUS 
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vEBtt FE(RB) ,UCBSU_ BON SR aEco jGALCULATE TOTAL NUMBER OF FILES | 
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TMDRIVER - TMO3-TE16/TU77 MAGTAPE DRIVER -SEP-1984 AX/VMS Macro v04-00 Page 
v04-000 READ DATA FORWARD AND WRITECHECK DATA ro | -SEP=1984 88: 6: 8 DRIVER. SRCJTMDRIVER.MAR; 1 . 
oes 1338 «SBTTL READ DATA FORWARD AND WRITECHECK DATA FORWARD FUNCTIONS 
066] 126] ; READ DATA FORWARD AND WRITECHECK DATA FORWARD FUNCTIONS 
0661 1368 
661 1564 WRITECHECK: sWRITE CHECK FORW 
009A CS 4000 BF AA 0661 1565 Bil  #IOSM_DATACHECK,UCBSW_FUNC(RS) ;CLEAR OATAT HECK REQUEST 
0668 1366 READDATA: sREAD DATA FORWAR 
066 156 REQSCHAN sREQUEST SECONDARY 1/0 CHANNEL 
50 0092 CS 9A O066& 1568 S$: MOVZBL yCBsB_ FEX(RS) RO sRETRIEVE FUNCTION N INDEX 
05 £0 0673 129 Beet oer sv ee ce 1680 OFT” branch d test 
P4 a ° rancn aroun es 
0B 00B8 C5 SEPA 1571 UCBSW_ at- “bSehS), 10$ 3. for minimum Length record. 
067E 1306 | Before teotinn for short record on 800 it test for Tape Mark. 
45 52 02 €0 O67E 157 BBS a V_TM,R2,40$ f SET, Tape Mark encountered 
oopc CS) «=—(OE-Ss«wB1sC06B2 157% MPw MIR, RECORD. -UCBSW_MT _FCCRS) :MIN NIMUM RECORD READ? 
ES 1A 0687 1575 BGTRU 5 s1F GTRU NO 
Of E1 0689 1576 10S: BBC #losy U=POne - 
38 009A C 0688 1577 ) 40s : If CLR, no data check. 
068F 1578 EXFUNC tts N SSPACE RECORD REVERSE 
0697 1579 EXFUNC 20$,F F ORTIECHEER. WRITE CHECK DATA 
26 411 O69F 1580 BRB 40$ : 
06A1 1581 
06A1 1386 3 
peat 138? 3 FUNCTION ENDED IN AN ERROR 
06A1 1585 ; THE ERROR COULD BE A NONFATAL CONTROLLER OR DRIVE ERROR. FATAL ERRORS TERMINATE 
peal 1386 ; THE FUNCTION IN THE FUNCTION EXECUTOR. 
06A1 1588 ; FATAL CONTROLLER ERRORS ARE: 
06A1 1589 ; 
06A1 1590 : ERCONF = ERROR CONFIRMATION. 
06A1 1591: ISTO = INTERFACE SEQUENCE TIMEOUT. 
06A1 1998 ; PGE = PROGRAMMING ERR 
06A1 1593; NED = NONEXISTENT BRIVE: 
06A1 1594; RDTO = READ DATA TIMEOUT. 
06A1 1595; 
06A1 1396 ; FATAL DRIVE ERRORS ARE: 
Q06A1 1597; 
06A1 1598; ILF = ILLEGAL FUNCTION. 
06A1 1599 : ILR = ILLEGAL REGISTER. 
06A1 1600 ; NEF = NONEXECUTABLE FUNCTION. 
06A1 1601 : RMR = REGISTER MODIFY REFUSE. 
6A1 160¢ ; UNS = AFE. 
6A1 1605; 
06A1 1604 ; IGNORED DRIVE ERRORS ARE: 
06A1 1605 ; 
bal 1606 : DPAR = DATA BUS PARITY. 
6A1 1608 ; NOTE THAT IT IS ASSUMED THAT MASSBUS EXCEPTION (MBEXC) WILL OCCUR ONLY IN 
a 1902 > COMBINATION WITH ANOTHER DRIVE OR CONTROLLER ERROR. 
06A1 1611 
51 00024974 8F D3 06Al 161¢ 208: BITL sMBASH SR_DLT!- :DATA L 
6A8 161 MBASM_SR_INVMAP!- SINVALID” har "fecister OR, 
6A8 1614 MBAR SR-MAPPE ! - ARITY ERROR 
6A8 1615 MBASM~SR~MCPE !- <MASSBUS CONTROL PARITY ERROR OR, 
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RD AND WRITECHECK DATA FO 5=SEP-1984 00:17:59 (CDRIVER.SRC CITMDRIVER.MAR: 1 

MBASM_SR_SPE!- :MBA SILO PARITY ERROR OR 
MBASM~SR_MDPE ! = SMASSBUS DATA PARITY ERROR OR, 
MBASM_SR_MXF != SMISSED TRANSFER OR 
MBASM~SR-RDS,R1 ‘READ DATA SUBSTITUTE? 

BNEQ 80 SIF NEQ YES 

BBS #MT_DS_V_TM,R2,30$ TIF SET, TAPE MARK DETECTED 

BITw #MBKSM~ SR wOeRcua! [WRITE CHECK LOWER BYTE OR, 
MBASM_SR_QCKUPR,R1 SWRITE CHECK UPPER BYTE? 

BNEQ 80S tIF NEQ YES 

BITW §#MT_ER_M_CPAR!- :CONTROL BUS PARITY ERROR OR, 
mT_ER_A_BTE!- [DRIVE TIMING ERR OR OR, 
MT-ER-M~FMTi- ‘FORMAT ERROR 
MT~ER-M-INCi- +t INCORREC TABLE OF RROR (PE) OR, 
MT-ER-M-LRCi- SLONGITUDINAL PARITY ERROR (NRZI) OR, 
MT“ER-M-NSG i= SNONSTANDARD GAP OR 
MT"ER-M-OPI i- ZOPERATION INCOMPLETE OR, 
MT-ER-M_PEF i= [FORMAT ERROR (PE, 
MT-ER-M_VPE RO iVERTICLE PARITY ERROR (NRZI)? 

BNEQ 708 TIF NEQ YES 

BBS #MT_DS_V_PES.R2,40$ [IF SET, PHASE ENCODED TAPE 

BITW #MTTERTMICRC'MT_ER_M_ITM.RO ;CRC OR INVALID TAPE MARK? 

BNEQ 80$ SIF NEQ YES 


FRAME COUNT ERROR 
IF THE RECORD CONTAINED MORE BYTES THAN THE SPECIFIED BUFFER, THEN A 


ERROR IS RETURNED. ELSE A CHECK IS MADE FOR END OF FILE AND IMPLICIT 


DATA OVERRUN 
T WRITECHECK. 


40$: MOVZWL #SS$_DATAOVERUN,RO :SET DATA OVER RUN STATUS 
CMPW UCBSQ_MT_FC(R5S),UCBSW_BCNT(R5) ;DATA OVER RUN? 
BGTR 3 s1F GTR’ YES 
MOVZWL #SS$ ENDOEF ILE -RQ SASSUME END OF FILE 
BBS #nt_OS 60$ [IF SET, TAPE MARK ENCOUNTERED 
BBS #MT"DS_V “PES, Rese 45$ : If at me branch around test of 
minimum engte record. 
CMPW = #MIN_RECORD,UCBSW_MT _FC(RS) MIN iRuk RECORD READ? 
i BGTRU 5$ s1F 6TRU 
BBC #10$V_DATACHECK,- 
UCBSW" FUNC (RS) ),50$ no data ch 
CMPB so ACD F_READDATA, UCBSB_ cexckst EAS FUNCTION READ “DATA? 
ool BEQL 10% ~ TIF €OL 
MOVZWL $*#SS$_NORMAL,RO :SET NORMAL COMPLETION STATUS 
60$: Incl UcBSL RECORD (AS) ; INCREMENT RECORD POSITION 


RECOVERABLE CONTROLLER OR DRIVE ERROR 

A CHECK IS MADE TO a tigen F IF een jMconret 
THE TRANSFERED BYTE COUNT WAS ZERO. IF THIS CHECK I 
IS BEING READ AND THE FATAL ERROR EXIT IS TAKEN. 


A CHECK IS MADE TO DETERMINE IF ANY RETRIES REMAIN. 


E IS _THE ONLY ERROR AND THAT 
S SATISFIED, THEN BLANK TAPE 


IF THE NUMBER OF RETRIES IS 
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TMDRIVER a Hoarty abide an DRIVER 16-SEP-19 AX/VMS Macro Vv04-00 Page 34 
Mara tt READ DATA FORWARD AND WRITECHECK DATA FO g-8e P=] 1382 88: 96: 48 LORIVER.SREITMDRIVER-MAR: 1 . (1) | 
6FF 1673 ; EXHAUSTED, THEN AN ERROR IS RETURNED. ELSE RECOVERY IS ATTEMPTED. THE METHOD USED 
rt 1ole ; DEPENDS ON THE PREVIOUS NUMBER OF RETRIES. 
6FF 1928 3; IF THE PREVIOUSLY ATTEMPTED RETRIES HAVE EXCEEDED A THRESHOLD, THEN THE TAPE IS 
O6FF 1677 ; BACKSPACED THE ERROR BACKSPACE COUNT, FORWARD SPACED THAT NUMBER MINUS ONE, AND 
Ost 1978 3; THE OPERATION IS REPEATED. 
6F F 1989 3; IF THE PREVIOULY ATTEMPTED RETRIES HAVE NOT exceee ED THE THRESHOLD, THEN THE TAPE | 
oh 1882 ; 1S BACKSPACED ONE RECORD AND THE OPERATION IS RETRIED. | 
6FF 1683 - 
50 OFFF 8F 8B oe 1684 70$: BITW #*C<MT_ER_M_OPI>,RO ;OPERATION INCOMPLETE ONLY ERROR? 
06 1 04 1685 BNEQ zIF NE 
ooBCc C 8 8796 16 $ TSTWwW UCBSW_MT_FC(RS) 3 Taner ene BYTE COUNT ZERO? 
6— 13 O70A 16 BEQL 140$ TIF EQL 
070C 1688 80$: TESTR 130$ “TEST RE MAINING RETRIES 
0080 C5 08 91 O711 1689 CMPB #THRESHOLD,UCBSB LERTCNT(RS) 7h + - USE ALTERNATE RECOVERY? 
57 1B 0716 1690 BLEQU 120% 3; 1F LEQU 
00B0 C5 05 D1 0718 1691 CMPL #ERR_SPACING, UCBSL _RECORD (RS) ENOUGH RECORDS WRITTEN ON TAPE? 
28 18 0710 169¢ - s1F LEQU 
O71F 169 RELSCHAN :R LbAse “SECONDARY CHANNEL 
0725 1694 EXFUNC DOUBLE,F_REWIND APE 
07 3 1695 REQPCHAN CREGUEST PRIMARY CHANNEL 
53 54 pO 07 1696 MOVL R4,R3 iSET ADDRESS OF DRIVE CONTROL REGISTER 
0736 1697 REQSCHAN REQUEST SECONDARY CHA 
00c4 C5 00B0 C5 BO 468 1698 MOVW UCBSL_RECORD(RS) ,UCBSW_ ni -FORCNT(RS) ;SET PROPER RECORD COUNT | 
1A «12 «20743 =«—(1699 BNEQ 110$ ~ NEQ implies that we were not originally 
0745 1700 : at BOT, so we space forward to where 
0745 1701 ; avere 
3002 «611+ «=—0745 1708 BRB 130$ e if we were at BOT we branch around. 
00c4é C5 05 BO 0747 1703 90$: MOVW #ERR hag ts UCBSW_MT _FORCNT CRS) sSET RECORD COUNT 
074C 1704 100$: EXFUNC DOUBCE,F_INTSPCREV™ :SPACE RECORD REVERSE 
00c4 C5 B7 0754 1705 DECW UCBSW Eat ~FORENT (RSD a MORE RECORDS TO SPACE? 
Fe 14 0758 1708 BGTR TR YES | 
00c4 C5 04 BO O75A 170 MOVW #ERR ‘ott UCBSW_MT _PoRENT CRS) ist? Ayer pe SPACING COUNT 
075F 1708 110$: EXFUNC DOUBCE,F_INTSPCFOR :SPACE RECORD FORWARD 
00c4 C5 B7 0767 1709 DECW UCBSW_ nt ~FORENT (RS) ANY MORE RECORDS TO SPACE OVER? 
F2 14 0768 1710 BGTR 110$ ~ :1F GTR YES 
08 11 O76D 1711 BRB 130$ 
076F Ii¢ 1908: EXFUNC DOUBLE,F_INTSPCREV : SPACE RECORD REVERSE 
FEF4 3] 0777 1713 130$: BRW 5$ 3 
0287 1 O77A 1714 140$: BRW FATALERR : 
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ce AND URIGEENECK DATA RE ‘Sosepoiope Sorssiso 


; ~SBTTL READ DATA REVERSE AND WRITECHECK DATA REVERSE FUNCTIONS 
; READ DATA REVERSE AND WRITECHECK DATA REVERSE FUNCTIONS 


WRITECHECKR: 
BICW #IOSM_DATACHECK,UCBSW_ Fue 
READDATAR: 
REQSCHAN 
NOVZBL UCBSB_FEX(RS) .RO 
EXFUNC $ 


BBS #MT_DS_V_PES,R2,10$ 


AX/VMS Macro V04-00 
DRIVER. SRCITMDRIVER.MAR; 1 


<- 


REVERSE 
AR vease CHECK REQUEST 
CONDARY I/0 CHANNEL 
uo IN INDEX 
O° Bern branch around test 


mum length recor 
for Tape Mark or BOT. 


t Savers testing for wk record on 800° b 


wMT_D DS_V TH Re 3408, 
CMPW *nin. sevonn. ocesu. MT Fe 
BGTRU 
10$ BBC #10$V_DATACHECK,- 


U 
EXFUNC DOUBLE,F_INTSPCFO 
EXFUNC @ 208. F_WRITECHECKR 


FUNCTION ENDED IN AN ERROR 


a Mark Sooqumeeras 


oOmwm c2—3-83 m<->}-- 


THE ERROR COULD BE A NONFATAL CONTROLLER OR DRIVE ERROR. FATAL ERRORS TERMINATE 
THE FUNCTION IN THE FUNCTION EXECUTOR. 


FATAL CONTROLLER ERRORS ARE: 


ERCONF = ERROR CONFIRMATION. 
ISTO = INTERFACE SEQUENCE TI 
PGE = PROGRAMMING ERROR. 
NED = NONEXISTENT DRIVE. 
RDTO = READ DATA TIMEOUT. 
FATAL DRIVE ERRORS ARE: 
ILF = ILLEGAL FUNCTION. 
ILR = ILLEGAL REGISTER. 
RMR = REGISTER MODIFY REFUSE. 
UNS = UNSAFE. 
IGNORED DRIVE ERRORS ARE: 
DPAR = DATA BUS PARITY. 


NOTE THAT IT IS ASSUMED THAT MASSBUS EXCEPTION (MBEXC) WILL OCCUR ONLY 


; COMBINATION WITH ANOTHER DRIVE OR CONTROLLER ERROR. 


208: BITL #MBASM_SR_DLT!- 
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MBASM_SR_INVMAP! - 
MBASA” SR-MAPPE ! - 
MBASM_SR_MCPE!- 


NVALTD. fae “fesister OR, 
‘MASSBUS CONTROL PAR 
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TMDRIVER = TMO3-TE16/TU77 MAGTAPE DRIVER 16-SEP-1984 00:06: AX/VMS Macro V04-00 Page 36 
VOsn OU READ DATA REVERSE AND WRITECHECK DATA RE g-8é ety 8:96:19 YORIVER. SRCITMDRIVER.MAR; 1 ¢ ) 
7¢6 1773 MBASM_SR_SPE!- :MBA SILO PARITY ERROR 
C6 1774 MBASH_SR_MDPE ! :MASSBUS DATA PARITY ERSoR OR, 
7€6 1775 MBASM-SR_MXF != ‘MISSED TRANSFER 
766 1726 HBAS SR” “RDS, R1 SREAD DATA SUBSTITUTE OR, 
sc 266 177 BNEQ 70$ SIF NEQ YES 
07 52. 02 «€0 O7¢ 1278 BBS #MT_DS ll. ™,R2, 30$ ‘IF SET, TAPE MARK DETECTED 
51 0600 8F 683 O7CC 177 BITw dy MBASM~SR_WCKLUR!- [WRITE CHECK LOWER BYTE OR, 
ee | nn, heal A | geet 
50 3108 8F ag 203 17 : 30$:  BlTw ent ER_M_CPAR!= SCONTROL BUS PARITY ERROR OR, 
708 17 T_ER_A -5TE!- ‘DRIVE TIMING ERROR OR, 
208 1784 MITER MIFMT! FORMAT ERRO OR 
708 1785 MTTERTMTINC | - ZINCORRECTABLE ERROR (PE) OR, 
0708 1786 MT“ER-M~LRCi- LONGITUDINAL PARITY ERROR (NRZI) OR, 
0708 1787 MT“ER-M_NSG! = ‘NONSTANDARD GAP OR 
0708 1788 MT-ER-M_OPIi- :0P ER ATION "INCOMPLEE OR, 
0708 1789 MT"ER-M_PEF i= FORMAT ERROR (PE) OR 
0708 1790 MT-ER-M_VPE RO :VERTICLE PARITY ERROR (NRZI)? 
4A 12 O7D8 1791 BNEQ 708 : Q YES 
07 52. 05 €0 O7DA 1798 BBS #MT_DS_V_PES,R2,40$ TIF SET, PHASE ENCODED TAPE 
50 8400 8F 63 O70E 179 BITW  #MTTERTMCRC'MT_ER_M_ITM.RO ;CRC OR INVALID TAPE MARK? 
3F 12 Ore 1794 BNEQ 7087 :IF NEQ YES 
O7E5 1796; 
Bree ta 44 3 FRAME COUNT OR NONEXECUTABLE FUNCTION 
0765 1799 : IF THE yRECORD CONTAINED MORE BYTES THAN THE SPECIFIED BUFFER, THEN A DATA OVERRUN 
O7E5 1800 : IS RETURNED. ELSE A CHECK IS MADE FOR END OF FILE, BEGINNING OF TAPE, AND | 
O7E5 1801 : IMPLICIT WRITECHECK. 
Ores 1808 
50 0838 8F 3C O7E5 1804 40$:  MOVZWL #sss DATAOVERUN,RO :SET DATA OVER RUN. Status 
7E AS) = OOBC cS 8 O7EA 1805 CPN BSQ_MT_FC(RS) ,UCBSW =BCNT(RS) :DATA OVER 
50 0870 8F 3C Ore 180? MOVZWL &#SS$ ENDOFE IL RO [SET END OF FILE STATUS 
22 52 02 £0 O7F? 1808 BBS #MT_BS_V_ 60$ SIF SET, TAPE MARK ENCOUNTERED 
1E 3g 01 €0 O7FB 1809 BBS #MT"DS-V ~Bot. “aS :1F SET. BEGINNING OF TAPE 
OA 5 05 = £0 4a 139 BBS #T"DS_ “\" “PES,R2,45$ ; af of te 16 6. branch arqund test of 
n en r aA 
ooBc cS Of B1 0803 181¢ CMPW #MIN_RECORD,UCBSW_MT_FC(RS)— : MINIMUM RECORD fF .AD? 
a 3 SBOK 1814 oh ¢3° :IF GTRU NO 
080D 1815 45$: ‘ 
Of E1 9800 1 16 BBC #10$V -DATACH CK 
07 009A ¢ B0F 181 UCBSW7FUNC (RS) , $0$ it © data check. 
0093 ¢5 OF HI aei8 18 cMpe aOF READDATAR.UCBS$B ~Cexins } LAT FUNCTION READ DATA? 
1A 1 $: 
50 01 3¢ OB1A is ° ” MOVZWL S*#SS$_NORMAL,R :SET NORMAL COMPLETION STATUS 
0080 ¢5 b 1D 1 : 60$: DECL UcBsL Recon cass SDECREMENT TAPE POSITION 
024F 1 } : ? BRW CxT : 
4 1825; 
: r : § ; FUNCTION ENDED IN A RETRIABLE ERROR 
2:4 , 
4 1 § 70S: TESTR 1308 sTEST FOR RETRIES 


<— 
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Mara tt READ DATA REVERSE AND WRITECHECK DATA RE -SEP-1984 2 88: 96: :5 DRIVER. SRCITMDRIVER.MAR; 1 . 
0080 C5 8 91 9 1830 CMPB #THRESHOLD,UCBSB_ ERTCNT(R5) ;TIME TO USE ALTERNATE RECOVERY? 
9 1 1831 BLEQU 908 -IF LEQU 
00C4 C5 B 1 ¢ MOVW #ERR gpacine yeast. MT _FORCNT (RS) ;SET FORWARD SPACING COUNT 
1833 80$: | EXFUNC DOUB ace NTSPCFO ;SPACE RECORD FO 
00C4 3 Hf 23 ! ¢ pece ycesu. WTTFORCNT CR 8) va“ TO SPACE? 
00c4 C5 bg BO 8 ‘a -i3 § MOVW pene ‘wets, UCBSW_MT -FORCNT(R 5) ;SET eeveets SPACE COUNT 
48 1837 85$:  EXFUNC DOU _INTSPCREV™ PACE RECORD 
00C4 £3 7 2? ! 3 pete ue te at ~FORCNT (RS) any MRE RECORDS TO SPACE? 
0093 c5 90 3} ie : re 90$: Hat g ey te WRITECHECKR,UCBS$B_ cB at be CHECK REVERSE? 
oo0Bc ¢S~s«BI 5D 1 A: CMPW UCBSW_MT_FC(R5S),= ; See if record size > BCNT. If so 
7E AS p36 184 UCBSW_BCAT (RS) : then we cannot read forward and 
0 rt 1844 ; accomodate the record equally. 
4F 1A 0863 1845 BGTRU 120$ : GTR implies yes record > BCNT 
7E AS) = AO 0865 1 #6 ADDW UCBSW_BCNT(R5),- : Here we will try to read forward so 
7C AS 0868 184 UCBSW_BOFF (RS) : effectively bo ocate the buffer to a 
OOBC CS) =—A2 «(086A «(1848 SUBW UCBSW_MT_FC(RS),- ; higher offset if the record is 
7C AS 0 $F 1849 UCB$W_BOFF (RS) ; smaller than the BCNT (buffersize). 
oopc cS) =6BO «200870 «61850 MOVW UCBSW_MT_FC(R5),=- ; Here we set the byte count to the 
7E AS 0874 1851 UCBSW-BCAT(RS) 3 real record size. 
0876 1836 EXFUNC 100$ F_READDATA ;READ DATA FORWARD 
51 00064974 8F D3 O87E 1853 100$: BITL  #MBASM™SR DLT!- SDATA LATE OR 
0885 1854 MBASM_SR_INVMAP!- ZINVALID MAP REGISTER OR, 
0885 1855 MBASM~SR-MAPPE ! - [MAP PARITY 
0885 1856 MBASM~SR—MCPE !- :MASSBUS CONTROL Npanity ERROR OR, 
0885 1857 MBASM_SR_SPE!- A SILO PARITY ERROR 
0885 1858 MBASM~SR_MDPE ! - MASSBUS DATA PARITY ERROR OR, 
0885 1859 MBASH_SROMXE | - [MISSED TRANSFER OR, 
0885 1369 MBASM_SR_NED!- ‘NONEXISTENT DISK OR 
0885 1861 MBASM~SR-RDS,R1 :REA D DATA SUBSTITUTE. 
22 3 0885 1306 BNEQ 0$ ~ 1F NEQ YES 
50 3718 8F B 0887 186 BITwW oy ER_M_CPAR!- : CONTROL BUS PARITY ERROR, OR 
088C 1308 T_ER A BTE!- [DRIVE TIMING ERROR ,OR 
O88C 1865 aT “ER_ “A_ FCE!- sFRAME COUNT ERROR OR, 
O88C 1866 MT “ER_ “A FMT! - ;FORMAT ERROR 
088C 1867 MT “ER “a_ 1TMi- s INVALID TAPE ray Ae. 
088C 1308 MT “ER_ “A_ _NSG!= sNONSTANDARD GAP 0 
088C 1869 MT~ER-M~OPI ,RO S OPERATION INCOMPLETE. 
1B 12 tts 1870 BNEQ 110$ s1F NEQ YES 
O88E 1871 EXFUNC RTOScE’R ts aa i SPACE antinre REVERSE 
0896 1 Le EXFUNC 11 ate READ sREAD A FORWARD 
8 9E 187 EXFUNC poet EvF_ TP SPCREV : SPACE ORECORD REVERSE 
pere 31 A6 1874 BRW 1 
C080 ¢ 96 8 9 1875 1108: INCB UCBSB_ERTCNT(R5) IBIAS ERROR RETRY COUNT 
8AD 1376 TESTR if} ie sTEST FOR TAPE MOVEMENT 
08 11 0882 187 BRB 1308 : 
ae \ 4 1908 EXFUNC DOUBLE,F_INTSPCFOR ;SPACE RECORD FORWARD 
50 58AS 00 5B 1880 MOVL UCBSL_IRP(R5) ,RO ; Restore original transfer parameters 
8CO 1881 in case they have deen altered above. 
C 1 § ASSUME IRPS$W_BOFF+2 EQ IRPS$W _BCNT 
: ' i ASSUME UCBS$W"BOFF+2 EQ UCBSW_BCNT 
30 AO oO CO 1885 MOVL IRPS$W_BOFF (RO) ,- 3; Restore transfer parameters. 
C AS C 1886 UCBSW~ _BOFF (R5) 


aw 
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FEC2 31 O8C5 1887 BRW 5$ ; Go back and try again. 
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ARD FUNCTION -SEP-1984 75 DRIVER. SRE Cit MDRIVER.MAR; 1 (1) 


.SBTTL WRITE DATA FORWARD FUNCTION 
WRITE DATA FORWARD FUNCTION 


WRITEDATA: sWRITE DATA FORWARD 
REQSCHAN REQUEST SECONDARY CHANNEL 

S$: EXFUNC 20$,F WRITEDATA SEXECUTE FUNCTION 
BBC #1O$V~DATACHECK,UCBSW_FUNC(R5),10$ ;IF CLR, NO DATA CHECK 
EXFUNC DOUBLE,F_INTSPCREV ;SPACE RECORD REV VERSE 
EXFUNC 50$,F WRITECHECK WRITE CHECK DATA 

10$: MOVW UCBSW"BCNT(R5) .UCBSW_MT_FC(R5S) ;SET TRANSFER BYTE COUNT 
INCL UCBSL~RECORD(RS) i INCREMENT TAPE POSITIO 
cov cu. 5 USS E_NORAAL RO 3SET NORMAL COMPLETION STATUS 


; WRITE FUNCTION ENDED IN AN ERROR 


; THE ERROR COULD BE A NONFATAL CONTROLLER OR DRIVE ERROR. FATAL ERRORS TERMINATE 
; THE FUNCTION IN THE FUNCTION EXECUTOR. 


; FATAL CONTROLLER ERRORS ARE: 


ERCONF = ERROR CONFIRMATION. 
ISTO = Sees amaiie ete TIMEOUT. 


; PGE = PROGRAMM 
; NED = NONEXISTENT DRIVE. 
: RDTO = READ DATA TIMEOUT. 
: FATAL DRIVE ERRORS ARE: 
; ILF = ILLEGAL FUNCTION. 
; ILR = ILLEGAL REGISTER. 
; NEF = NONEXECUTABLE FUNCTION. 
; RMR = REGISTER MODIFY REFUSE. 
Py UNS = UNSAF 
: IGNORED DRIVE ERRORS ARE: 
; NONE. 
208: BISW — #IOSM_DATACHECK ,UCBSW FUNC(RS) ;FORCE DATA CHECK 
ADDW CBSW~BCNT(RS) .UCBSW_AT_FC(R5) :CALCULATE ACTUAL BYTES TRANSFERED 
TESTR 308 : TEST REMAINING RETRIES 
EXFUNC DOUBLE FF INTSPCREV : SPACE RECORD. RE EVER 
30$: 68BS V_INREXTGAP ,UCBSW_FUNC(RS) 4 SET, NO EXTENDED GAP 
RELSCH PP sRELEASE SeEONDARY CHANNEL 
EXFUNC Ouse . F_ERASE TERASE TAP 
os REQS SCHA ;REQUEST SECONDARY CHANNEL 


: WRITECHECK FUNCTION ENDED IN ERROR 


; THE WRITECHECK ERROR IS NOT COUNTED AGAINST THE RETRY COUNT, BUT RATHER THE 
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VOsn OU ITE DATA FORWARD FUNCTION $73 SEP= 198 gg: 9: 38 DRIVER.S RCITMDRIVER.MAR: 1 ” Th 
: 1946 TAPE IS REPOSITIONED AND THE WRITE IS RETRIED. 
932 1948 

ooBc C5 930 1949 50$:  ADDW  UCBSW_BCNT(RS) ,UCBSW_MT_FC(RS) CALCULATE TRANSF ERED BYTE COUNT 

938 1950 INCB CBSB-ERTCNT (RS) sBIAS ERROR RETRY COUN 
093¢ 1951 TESTR 5$ TEST REMAINING RETRIES 
0941 1958 EXFUNC DOUBLE,F_INTSPCREV ; SPACE RECORD REVERSE 
0949 195 BRB 5$ 
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v04-000 CHECK FOR FATAL OR RETRIABLE SPACING ERR Ser 7 88: 19: 8 DRIVER. SRCITMDRIVER.MAR; 1 ° (1) 
38 1933 -SBTTL CHECK FOR FATAL OR RETRIABLE SPACING ERROR 
ace 1987 ; CHECK_ERROR = CHECK FOR FATAL OR RETRIABLE SPACING ERROR 
0948 1959 ; THIS ROUTINE IS CALLED FROM THE SPACE FILE FORWARD, SPACE pecone FORWARD, P aaa 
948 1960 ; FILE REVERSE, AND SPACE RECORD REVERSE FUNCTION ROUTINES TO TEST WHETHER 
pote 138) 3 SPACING ERROR IS FATAL AND WHETHER ANY RETRIES REMAIN. 
0948 1388 : INPUTS: 
0948 1964 ; 
0948 1965; RO = DRIVE ERROR REGISTER. 
948 1306 3 Ri = MBA STATUS REGISTER. 
bees 1308 ; R2 = DRIVE STATUS REGISTER. 
0948 1969 ; UCBSB_CEX(RS) = FUNCTION INDEX OF LAST FUNCTION EXECUTED. 
0948 1970; UCBSB_ERTCNT(R5) = NUMBER OF ERROR RETRIES REMAINING. 
0948 1971 ; UCB$SW_BCNT(R5) = ORIGINAL SPACING COUNT. 
0948 1376 g UCB$W_BOFF(RS) = REMAINING SPACING COUNT. 
0948 1973; 
0948 1974 ; OUTPUTS: 
0948 1975; 
0948 1976; IF ONLY A FRAME COUNT ERROR OCCURED OR THE FUNCTION WAS A re 4s} hea 
0948 1977; FUNCTION AND A CONTROL BUS PARITY ERROR DID NOT OCCUR, THEN A 
0948 1978 ; RETURN TO THE CALLER IS EXECUTED, ELSE Le! REAAINING RETRY COUNT IS bee 
0948 1979 ; CREMENTED, AND IF THE RESULT IS ZERO THE FUNCTION IS TERMINATED VIA 
bees + 44 3 THE DOUBLE ERROR EXIT. ELSE THE F UNC TION Is REDISPATCHED. 
0948 1986 
0948 1985 CHECK_ERROR: 
51 BEDO 0948 1984 POPL R1 ‘REMOVE RETURN ADDRESS oo STACK 
50 FDFF 8F B3 B3e8 1985 BITW #*C<MT_ER_M_FCE>,RO :RETR “oe OR FATAL ERROR? 
21 13 0953 1986 BEQL 20$ TIF EQL 
0955 1987 
0955 1988; 
0955 1989 ; RETRIABLE OR FATAL DRIVE ERROR 
0955 1990 ; 
0955 1991 ; CPAR = CONTROL BUS PARITY ERROR. 
0955 1238 ; NEF = NONEXECUTABLE FUNCTION, 
0955 1993; OPI = OPERATION INCOMPLETE. 
0955 1994; 
0955 1995 
2450 03 €0 343 1338 BBS #MT_ER_V_CPAR,RO,40$ zIF SET, CONTROL BUS PARITY ERROR 
959 1998 ;: 
0959 1999 3; ERROR WAS EITHER A NONEXECUTABLE FUNCTION OR OPERATION INCOMPLETE 
959 2001 ° 
0093 cS) 605s 91's—«O9S9 09¢ CMPB #COF_SPCFILREV,UCBSB_CEX(R5S) ;SPACE FILE REVERSE? 
07 13 095 4 BEQL 0$ sIFR E 
0093 C5 st 91 096 4 CMPB #CDF_SPCRECREV,UCBSB_ CEX(R5) SPACE RECORD REVERSE? 
1 le 96 8 5 BNEQ 30$ ~ N 
0D 52 O01 C 96 $1 10$: BBC #AT_DS_V_BOT,R2,30$ :IF CLR, NOT AT BEGINNING OF TAPE 
968 ; Here we have a KLODGE Because the TMO3 leaves a zero in the Frame Count 
968 g 3 3 register (thereby indicating that the ski succeeded) when a skip 
968 : record reverse operation begins at the BOT. So if NEF is set, 
968 10 ; then we make correct the value that we have for the Frame Count to 
968 11 ; be the original value. We know that we are in this state if NEF 
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v04-000 CHECK FOR F OR RETRIABLE SPACING ERR 5=SEP-1984 75 DRIVER.S RCI TMDRIVER.MAR: 1 (1) 
o68 ; bit is set in MT_ER regisier. 
07 50 08 E1 BBC #MT_ER_V_NEF,RO, ens 3; If NOT NEF, then branch around. 
OOBE C B MOVW UCcBSW_ at- “SPACNT(R5),- ; Reset spacing count if screwed up 
ooBC ¢c5 UCBSW_MT_FC(RS) ; by hardware. 
6) 17 208: JMP (R1) ~ P 


OMPLETE FOR A FORWARD 


TAL ERROR ON NONEXE C 
E D NOT END UP AT BEGINNI 


FA CUT rs FUNCTION OR OPERATION IN 
Jon FUNCTION, OR A REVERSE DIRECTION FUNCTION THAT DI 


0080 ¢5 6001-90 


ERROR WAS A CONTROL BUS PARITY TABLE FUNCTION OR OPERATION 


RROR OR A NONEXECU 
RE CTION FUNCTION 


; E 
; INCOMPLETE IN COMBINATION WITH A REVERSE DIRE 


woowowowowowowowowowowowowowowowowvono 
SN O Oe 


VIVO SCC WOWDMmonomnwna® 


/TU7 
ATAL 

1 
u 
14 
BI? 
it 
18 
$33 
0 
% 
y 
8 2 308: MOVB #1, UCBSB_ERTCNT(RS5) ;SET RETRY COUNT TO ONE 
027 ; 
028 ; 
06? ; 
030 ; 
031 
sass 408: SUBW3 UCBSW_BOF 
03 
034 
035 
2036 
2037 


7E AS 7C AS”) A3. 0970 FC(R5) UCBSW_BCNT(R5), - ;CALCULATE TOTAL SPACE COUNT 
BC C 098 CBSW-MT_FC(RS5S 
00000000'GF 16 098 Q BERL SD EVICERR :L06 DEVICE ERROR 
0080 cS) (97 :«—«098B DECB UCB$B_ERTCNT(RS) Y RETRIES REMAINING? 
F 13 O98F BEQL DOUBLE a EQL NO 
F931 +31 0991 BRW FDISPATCH : 
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v04-00 TEST FOR REMAINING RETRIES ~SEP-1984 :59 CORIVER. SRCITMDRIVER. MAR; 1 
934 039 .SBTTL TEST FOR REMAINING RETRIES 
934 oc : TESTR = TEST FOR REMAINING RETRIES 
0994 $08 : THIS ROUTINE IS CALLED FROM THE READ DATA, READ DATA REVERSE, WRITECHECK, 
0994 2044 : WRITECHECK REVERSE, WRITE DATA, AND WRITE TAPE MARK FUNCTION ROUTINES TO 
0994 045 : TEST FOR REMAINING RETRIES. 
Bt EE nurs 
0994 2049 : RO = DRIVE ERROR REGISTER. 
994 2050 : R1 = MBA STATUS REGISTER. 
0994 91 : R2 = DRIVE STATUS REGISTER. 
0994 $38 : UCBSB_CEX(RS) = FUNCTION INDEX OF LAST FUNCTION EXECUTED. 
0994 054 ; UCBSB-ERTCNT(RS) = NUMBER OF ERROR RET RIES REMAINING. 
0994 2055 : UCBSL-RECORD(R5) = CURRENT TAPE POSITION BEF ORE FUNCTION EXECUTION. 
0994 2056 : UCBSW-MT DS(R5) = SAVED DRIVE STATUS oREGISTER 
0994 2057; UCB$W_FURNC(RS) = ORIGINAL FUNCTION WORD. 
0994 058 ; UCBSWIMT_FC(R5) = NUMBER OF BYTES THAT WERE READ OR WRITTEN TO/FROM TAPE. 
099% 38 : @(SP) = SIGNED BRANCH DISPLACEMENT TO CONDITIONAL EXIT POINT. 
0994 06¢ : OUTPUTS: 
0994 $pe7 : THE REMAINING RETRY COUNT IS DECREMENTED AND IF THE RESULT IS ZERO, THEN 
0994 2065 : THE FUNCTION IS TERMINATED WITH AN ERROR VIA THE FATAL ERROR EXIT AFTER 
0994 2066 : HAVING ADJUSTED THE CURRENT TAPE POSITION. ELSE THE CONDITIONAL’ BRANCH 
0994 067 ; EXIT IS TAKEN IF NO TAPE MOVEMENT OCCURED. 
S33 868 
0994 2070 TESTR ; 
00000000'GF 16 0994 2071 JSB G*ERLSDEVICERR :L0G DEVICE ERR 
0080 CS 97 099A 078 DECB UCBSB_ERTCNT(RS) ANY RETRIES REMAINING? 
1E 13 O99E 207 BEQL 208 TIF EQL NO 
05 £0 O9A0 2074 BBS #MT_DS_V_PES,- ; if i 1600 BPI, oreneh around test 
14 0088 C5 O9A2 2075 UCBSW_AT~DS(R5) minimum Lengt h record. 
o0Bc C5 OE 81 O9A6 2076 CHP win, RECORD UcBsu. ar -Fcchs)" SANY TAPE MOVE ENT? 
07 0088 c5_— 02 £0 O9AD 2078 BS MT_DS_V_TM,UCBSW_MT “pscids 10$ ;IF SET, TAPE MARK DETECTED 
7E BE 32 0983 2079 CVTWL © a( SP) ,=(SP) sGEf DISPLACEMENT VALUE 
6€ 8& C0 0987 2080 ADDL  (SP)+. (SP) i CEL CULATE SRANICH ADDRESS 
6—E 02 CO O9BA 2081 10$ ADDL #2, (SP) : 
05 098D 086 RSB ; 
OoBE 5084 ; 
ee 085 : ERROR RETRIES EXHAUSTED 
O9BE OB? > CHECK FOR TAPE MOVEMENT, ADJUST TAPE POSITION AS APPROPRIATE, AND TAKE FATAL 
O9BE 2088 ; ERROR EXIT. 
O9BE 5090 * 
BE D5 O9BE 91 20$: TSTL (SP) ve RETURN FROM STACK 
OD 0088 C5 08 £0 09¢ 3 BBS #MT_DS_V_TM UcBsW_ MT psi) S ilto’ TAPE MARK DETECTED 
07 oops ts ° bac8 So92 Bes AtaSU RYDE ths) If at 169 0°ert gth record. 
en record. 
008¢ ge OE 1 bore 95 CMPW = #MIN_RECORD, veas i. Ar petlas CANY TAPE PE MOVEAENT? 


aS 


0 
R 
E TAPE OPERATION 


A REVERSE? 
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FORWARD TAPE OPERATION 
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#2,UCBSL_RECORD(R5) 


FATALERR 
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Youn O00 TAPE POSITION LOST =5EP=1984 88: +3: 8 CDRIVER. SRE TMDRIVER. MAR; 1 - 
ED 5 .SBTTL TAPE POSITION LOST 
9ED 21 5 : TAPE POSITION LOST 
SED 2108 ; 
9ED 2109 
9ED 2110 LOSTPOS: . 
4645 10 AB O9ED 1] BISW  #<MTSM_LOST@-16>,UCBSL_DEVDEPEND+2(R5) ;SET TAPE POSITION LOST 
09F1 118 : 
O9F1 2114 : TEST FOR RETRY 
O9F1 2115 : 
OF 116 
9F1 2117 RETRY: sTEST FOR RETRY 
00000000'GF 16 O9F1 2118 JSB G*ERLSDEVICERR ‘LOG DEVICE ERRO 
0080 CS 97 O9F7 2119 DECB UCB$B_ERTCNT(RS) SANY RETRIES REMAINING? 
07 13 O9FB 130 BEQL FATALERR IF EQL NO 
F8C5. 31—«O9FD 2121 BRW FDISPATCH : 
0A00 1g8 
OA00 2123 ; 
ys Is 3; DOUBLE ERROR WHILE TRYING TO REPOSITION TAPE - TAPE POSITION LOST 
0A00 3126 
OA00 2127 DOUBLE: ; 
4645 10 AB 000 $139 BISW § #<MT$M_LOST@-16>,UCBSL_DEVDEPEND+2(R5) ;SET LOST POSITION STATUS 
OA04 2130; 
0A04 Ay : FATAL CONTROLLER/DRIVE ERROR ERROR RETRY COUNT EXHAUSTED, ERROR RETRY 
0A04 2132 : INHIBITED, OR FINAL OFFSET TRIE 
0A04 2133: 
OA04 2134 
0A04 2135 FATALERR: sFATAL ERROR = SET STATUS 
53 50 00 OA0G 2136 MOV [COPY ERROR STATUS REGISTER 
50 O01A4 BF 3C OA07 2137 MOVZWL asi3- MEDOFL,RO [SET MEDIUM OFFLINE STATUS 
63 32 Oc €1 OAOC 2138 BBC T_6S_V OL .R2.FUNCKT SIF CLR, MEDIUM OFFLINE 
09 53 = OB é] OA10 2139 BBC ont “ERT VNEF .R3,10$ SIF CLR, EXECUTABLE FUNCTION 
50 O25C 8F C OA14 2140 MOVZWL ass WRITLCK,RO [SET WRITE LOCK ERROR STATUS 
56 52. 0B £0 OA19 2141 BBS T BS V_WRL.R2,FUNCXT IF SET, DRIVE HARDWARE WRITE LOCKED 
50 0@3¢ 8F 3C OAID 148 10$: MOVZWL res8 URSKF E RO 'SET DRIVE UNSAFE STATUS 
4D 53 OF £0 OA22 214 BBS #MT 7 une. 5R3, FUNCXT IF SET, DRIVE UNSAFE 
50 0204 BF 3C 0A26 2144 MOVZWL ass OPLACOR ‘SET OPERATION INCOMPLETE STATUS 
44 53 OD £0 OA2B 2145 BBS Ti vt as. FUNCXT :IF SET, OPERATION INCOMPLETE 
50 99Bc 8F 3C OA2F 2146 MOVZWL #ss§ FORA [SET FORMAT ERROR STATUS 
3853 04 £0 OA34 2147 BBS TER RV ent 3. FUNCXT IF SET, FORMAT ERROR 
50 008¢ F 63C OA 8 148 MOVZWL res8 DRVERR [SET DRIVE ERROR STATUS 
53 1807 BF B3 OA3D 214 BITw  #mT ERM Brene [DRIVE TIMING ERROR OR, 
OA42 2150 "eR A'ILE | SILLEGAL FUNCTION OR, 
OA42 2151 MT“ERTMILRi- SILLEGAL REGISTER OR 
AG 138 MT"ER"M~NEF i- SNON-EXECUTABLE FUNCTION OR, 
AS2 215 MT™ ERS M~RMR,R3 SREGISTER MODIFY REFUSE 
er 12 OA42 2154 BNEQ = FU [IF NEQ YES 
50 O1F46 BF 3C OAG4 2155 MOVZWL #538 PARITY RO :SET PARITY ERROR STATUS 
53 85E8 BF OBS C(OAG9 136 BITW T ERM CRC!- [CRC ERROR OR 
AGE 215 at eR RA "CPARi = [CONTROL BUS PARITY ERROR OR, 
ASE 2158 MT"ER-M~ COR! = :CORRECTABLE DATA ERROR (PE) OR, 
ASE 2159 MT“ER“M-CS!- :CORRECTABLE SKEW ( PE) OR, 
AGE 2160 MT“ER"M~DPAR!- ZDATA PARITY ERROR OR 
AGE 2161 MT“ER“M~INC!= SINCORRECTABLE ERROR (PE) OR, 
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v04=000 TAPE POSITION LOST ety 7 88: 96: 8 DRIVER. SRCITMD DRIVER.MAR; 1 ve wD 
AGE 168 MT_ER_M_ITM!- sINVALID TAPE MARK O 
AGE 216 MT-ER-M“LRCi- LONGITUDINAL PARITY Reanon (NRZI) OR, 
AGE 2164 MT-ER"M-NSGi- tNONS TANDAR 
OAGE 165 MT“ER-M-PEF i- [FORMAT ER ROR (PED OR 
AGE 2166 MT-ER-M-VPE ,R3 ;VERTICLE PARITY ERROR (NRZ1)? 
: 12 OASE 216 BNEQ FUNCT EQ YES 
51 00024064 8F D3 OASO 2168 BITL sMBASR SR_MAPPE ! - IMAP PARITY ERROR 
. 0a5 199 MBASM_SR_ACPE !~ SMASSBUS CONTROL pantry ERROR oR, 
0057 2170 MBASM-SR- sPeI- ‘MBA SILO PARITY ERROR 
OA57 2171 MBASM—SR-MDPE ! - iMASSBUS DATA PARITY ERSOR OR, 
0A57 1% MBASM-SR-RDS,R1 READ DATA SUBSTITUTE? 
1A 12 Ad? 17 BNEQ  FUNCX EQ Y 
50 005C BF 463C «(0A59 217% MOVZWL yess DATACHECK,RO SET Np DATA CHECK ERROR STATUS 
51 0600 8F 83 ASE 175 BITW  #MBASM SR WCKLWR!- [WRITE CHECK ERROR LOWER BYTE Or, 
0A6 176 MBASM_SR_QCKUPR,R1 sWRITE CHECK ERROR UPPER BYTE? 
O& 12 OA63 2177 BNEQ fy NCX [IF NEQ YES 
50 01C4 8F 3C OA65 2178 MOVZWL yess NONEXDRV,RO :SET NONEXISTENT DRIVE STATUS 
0551. 12 £0 OA6A 3179 § #MBASV_SR NED: :RI FUNCXT IF SET, NONEXISTENT DRIVE 
50 0054 8F 3C OA6E 2180 MOVZWL #SS$_CTRLERR,R 'SET CONTROLLER ERROR STATUS 
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FUNCTION COMPLETION COMMON EXIT -SEP=1984 DRIVER. SRCJTMDRIVER.MAR; 1 

a? j .SBTTL FUNCTION COMPLETION COMMON EXIT 

Ag 4 : FUNCTION COMPLETION COMMON EXIT 

a? g : THIS ROUTINE IS JUMPED TO AT THE END OF ALL MAGTAPE OPERATIONS. 

NA 8 : INPUTS: 

A? 0; RO = FINAL 1/0 COMPLETION STATUS. 

Oar 1: R2 = DRIVE STATUS REGISTER. 

Ar § ; UCBSB_FEX(R5) = FUNCTION EXECUTION INDEX. 

Ar 3 : OUTPUTS: 

OA7 7: THE FINAL DRIVE STATUS IS TESTED AND THE FOLLOWING STATUS BITS ARE SET 
Oa? 8 : IN THE SECOND WORD OF THE DEVICE DEPENDENT CHARACTERISTICS LONGWORD. 

OA7 0 : MTSM_BOT = SET IF TAPE IS AT BEGINNING OF TAPE AT END OF FUNCTION 
OA7 : MTSM~EOF = SET IF A VALID TAPE MARK WAS DETECTED DURING THE TAPE 
0A73 g : OPERATION. 

0A73 : MTS$M_EOT = SET IF AN END OF TAPE CONDITION WAS PRESENT AT THE END 
OA7 4: OF THE TAPE OPERATION AND THE FUNCTION WAS A READ DAT 

OA7 5: FORWARD, WRITECHECK DATA FORWARD, WRITE DATA FORWARD, Mon 
0A73 6: CE RECORD FORWARD FUNCTION. 

0A73 7: MTSM_HWL = SET IF THE SLAVE DRIVE HAS A TAPE MOUNTED THAT DOES NOT 
OA7 : : AIN A WRITE RING. 
0A73 0° 
0A73 1 FUNCXT: ;FUNCTION EXIT 

51 0092 ¢S 9A O0A73 é MOVZBL UcBsB FEX(RS) RI [GET FUNCTION DISPATCH INDEX 
4605 OF AA OA7B BICW  #<MTS$A BOT! : CLEAR BEGINNI NG OF TAPE AND, 

OA7C 4 RTSR_EOF!~ :END of Fite A 
OA7C 3 


MTSM_EOT!- ND 0 PE AND; 
RISA. HWL >8-16, ay cast pevoePENDs2 (RS). HARDWARE WRITE LOCK 
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0c 52 01 ~=OE1—sOA7E 7 BBC 1 Os_v CLR, INNING OF TAPE 
46 AS 01 AB OA8O 8 BISW rent $M =BoT 65: UCBSL DEVDEPENDS2¢R5) :SET BEGINNING OF TAPE 
46 A5 10 AA OA84 9 BICW  #<MTSM™ LOSTa=165 >,UCBSC_DEVDEP END*<( (R5) iCLEAR TAPE POSITION LOST 
0080 C5) D4) (O88 0 CLRL uUCBSL_REC CORD. R5) SCLEAR TAPE POSITION 
2352 02 €1 OA8C 110$: BBC #MT_DS_V_TM,R2,30$ [IF CLR, NO TAPE MARK DETECTED 
46 AS 02 AB O0A90 é BISw 9 #<MTSM ~EOF 165 UCBSL_ DEVDEPENDS2(RS) sSET END OF FILE 
51 OA 91 0A94 CMPB 0s #CDF_WRITECHECK.R1 sDATA TRANSFER FUNCTION? 
1A 1A (0A97 4 BGTRU tI1F GTR U NO 
51 13 91 OA99 5 CPB 0s ACDF_LWRITEMARK,R1 WRITE VAPE MARK FUNCTION? 
05 13 OA9C 6 BEQL SIF EQL Y 
51 10 91 OASE CMPB «= #CDF_LREADPRESET.R1 [DATA TRANSFER FUNCTION? 
10 1B OAAI 8 BLEQU 30% ~ SIF LEQU NO 
90B¢ 3 B4 OAA3 9 208:  CLRW  UCBSW_MT_FC(RS) [CLEAR FRAME COUNT 
50 005C 8 B1 OAA7 0 CPW = s- #SS$_DATACHECK,RO SWRITE CHECK ERROR? 
05 12 OAAC 1 BNEQ 83 [IF NEQ NO 
50 0870 8F 3C OAA g MOVZWL #SS$ ENDOFFILE RO SET END OF FILE STATUS 
25 52. OA a OAB 30$: BBC r Re, 408 [IF CLR, NOT AT END OF TAPE 
51 05 91 OAB? 4 CMPB WCF _ SpUFICREV SA [SPACE FILE REVERSE? 
20 13 OABA 5 BEQL 40$ ~ SIF EQL YES 
51 91 OABC : CMPB 4 ©. #CDF_SPCRECREV.R1 : SPACE RECORD REVERSE? 
18 13 OABF BEQL = 4 TIF EQL YES 
51 OD 91 OACI 8 CMPB 49s #CDF_WRITECHECKR,R1 ‘URITES CHECK REVERSE? 
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Mara ti FUNCTION COMPLETION COMMON EXIT ae ae 4 $b: 06: 18 DRIVER. SRCJTMDRIVER.MAR; 1 - 
16 13 OACS 2239 BEQL 40% s1F EQL YES 
a. € os ACG 40 CMPB = #CDF_LREADDATA,R1 :READ DATA? 
17 13 OAC 41 BEQL $ tIF EQL YES 
51 OF 97 OACB 4¢ CMPB = #@CDF_LREADDATAR,R1 SREAD DATA REVERSE? 
OC 13 ACE 4 BEQL 0$ ‘IF EQL YES 
46 AS 94 ag AD 44 BISW  #<MTSM_EOT@-16>,UCBSL_DEVDEPEND+2(R5) ;SET END OF TAPE 
05 50 5 ADS 2245 BLBC s1F LBC ALREADY RETURNING ERROR 
50 0878 BF C OAD? 46 MOVZWL #SS$_ENDOFTAPE,RO :SET END OF TAPE STATUS 
04 é 08 E1 OADC 2247 40S: BBC #MT_BS_V_WRL,R2, 50S :IF CLR, NOT HARDWARE WRITE LOCK 
46 AS 08 ABS OAEO 2248 BISW  #<MT$MHOLA-16>,UCBSL_DEVDEPEND+2(R5) ;SET HARDWARE WRITE LOCKED 
50 DD OAES 2249 50S: PUSHL RO :SAVE FINAL STATUS 
00000000'GF 16 OAE6 2250 JSB G*IOCSDIAGBUFILL sFILL DIAGNOSTIC BUFFER IF PRESENT 
02 AE 00BC CS BO OAEC 2251 MOVW UCBSW_MT_FC(R5),2(SP) SET BYTES TRANSFERED OR RECORDS/FILES SKIPP 
36 6f E8 Are 3g BLBS (SP),70 :1F LBS SUCCESSFUL COMPLETION 
54 58 A5 DO OAF 5 MOVL  UCBSL_IRP(RS),R4 :GET ADDRESS OF CURRENT 1/0 PACKET 
2D 2A AG «004—SCiE1—sC«OOAFD 2254 BBC #IRPSU_VIRTUAL, IRP$W_STS(R4),70$ ;IF CLR, NOT VIRTUAL FUNCTION 
54 18 AG DO OAFE 2255 MOVL  IRPSL_QIND(R4).R4 :GET ADDRESS OF WINDOW BLOCK 
16 AG BS 0802 56 CLRW WCBSW-NMAP(R4) ‘CLEAR NUMBER OF MAPPING POINTERS 
54 34 A5 D0 080 57 MOVL UCBSLVCB(R5) ,R4 7GET ADDRESS OF VCB LISTHEAD 
52 4C AS) 9E «(0809 2258 MOVAB UCBSL ~1OQFL (RS) .R2 :GET ADDRESS OF 1/0 QUEUE 
53. 52 dO OB0D 2259 MOVL R2,R :SET ADDRESS OF PREVIOUS ENTRY 
53 63)—s«i 0819 260 60S: MOVL (R3) ,R3 [GET ADDRESS OF NEXT ENTRY 
52 53 ««D1Ssé1 261 CMPL = R3, RO SEND OF LIST? 
13 13 «0B16 36¢ BEQL © 70 [IF EQL YES 
F3 2A A304 €1 0B18 226 BBC #IRPSV_VIRTUAL, IRP$W_STS(R3),60$ ;IF CLR, NOT VIRTUAL FUNCTION 
53. 04 A3 DO OBID 2264 MOVL 4(R3),R3 SRETRIEVE ADDRESS OF PREVIOUS ENTRY 
51 0083 OF 0821 2265 REMQUE @(R3),R1 SREMOVE ENTRY FROM DRIVER QUEUE 
0484 61 OF 0B25 3266 INSQUE (R1),a4(R4) : INSERT ENTRY IN BLOCKED 1/0 LIST 
E5 11 0B29 : 67 BRB 60$ : 
0B2B 2268 70$: 
page 269 RELCHAN 3; Release any channels held. 
50 8EDO 0B31 2270 OPL RO SRETRIEVE FINAL STATUS 
51 44 A5 DO 0834 2271 STSXIT: MOVL  UCBSL_DEVDEPEND(R5),R1 SET MAGTAPE STATUS AND CHARACTERISTICS 
0B38 2272 REQCOM :COMPLETE REQUEST 
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VOsn OUD TMOSSTEIG/TUTY HARDGARE FONCTION EXECUTI ‘Sesep-19Be Dorsos59 LORIVER. caeiomoctve mans? P29e 42, 
: E 2 [SBTTL TMO3-TE16/TU77 HARDWARE FUNCTION EXECUTION 
8 : A: : FES = TMO3=TE16/TU77 HARDWARE FUNCTION EXECUTION 
B3E 2278 : THIS ROUTINE IS CALLED yIA A BSB WITH A WORD IMMEDIATELY FOLLOWING THAT 
— 2279 : SPECIFIES THE ADDRE AN ERROR ROUTINE. ALL DATA IS ASSUMED TO HAVE BEEN 
B3—E 2280 : SET UP IN THE UCB Serone THE CALL. THE APPROPRIATE PARAMETERS ARE LOADE 
OB3E 2281 : INTO DEVICE REGISTERS AND THE FUNCTION IS INITIATED. IF THE FUNCTION IS AN 
OB3E 86 : IMMEDIATE FUNCTION CONTROL RETURNS IMMEDIATELY. ELSE THE RETURN ADDRESS 
OB3E 2283 : IS STORED IN THE UCB AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTER- 
i : 84 ; RUPT OCCURS, CONTROL IS RETURNED TO THE CALLER. 
B3E Bg : INPUTS: 
OB3E 87 ; . 
OB3E 2288 : RO = FUNCTION TABLE DISPATCH INDEX. 
OB3E 89 ; R3 = ADDRESS OF DRIVE CONTROL STATUS REGISTER 1 
OB3E 2290 : R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
OB3E 31 RS = DEVICE UNIT UCB ADDRESS. 
OB3E 38 : 00(SP) = RETURN ADDRESS OF CALLER. 
OB3e 394 : 04(SP) = RETURN ADDRESS OF CALLER'S CALLER. 
OB3E 2296 : IMMEDIATELY FOLLOWING INLINE AT THE CALL SITE IS A WORD WHICH CONTAINS 
pase 3 3 A BRANCH DESTINATION TO AN ERROR RETRY ROUTINE. 
OB3E 3699 : OUTPUTS: 
OB3E 00 ; 
OB3E 301 : THERE ARE FOUR EXITS FROM THIS ROUTINE: 
OB3E 303 : 1. SPECIAL CONDITION - THIS EXIT IS TAKEN IF A POWER FAILURE OCCURS 
OB3E 2304 : OR THE OPERATION TIMES OUT. IT IS A JUMP TO THE APPROPRIATE 
OB3E 305 : ERROR ROUTINE. 
OB3E 309 : 2. FATAL ERROR = THIS EXIT IS TAKEN IF A FATAL CONTROLLER OR DRIVE 
OB3E 2308 : ERROR OCCURS OR IF ANY ERROR OCCURS AND ERROR RETRY IS 
OB3E 309 : INHIBITED. IT IS A JUMP TO THE FATAL ERROR EXIT ROUTINE. 
OB3E 3311 : 3. RETRIABLE ERROR - THIS EXIT IS TAKEN IF A RETRIABLE CONTROLLER 
OB3E 1 ; OR DRIVE ERROR OCCURS AND ERROR RETRY IS NOT INHIBITED. 
OB 5E 313 : IT CONSISTS OF TAKING THE ERROR BRANCH EXIT 
OB3E 2315 : 4. SUCCESSFUL OPERATION = THIS EXIT IS TAKEN IF NO ERROR OCCURS 
O85 316 : DURING THE OPERATION. IT CONSISTS OF A RETURN INLINE. 
oB3E ; IN ALL CASES IF AN ERROR OCCURS, AN ATTEMPT IS MADE TO LOG THE ERROR. 
See 0: IN ALL CASES FINAL DRIV AND CONTROLLER REGISTERS ARE RETURNED VIA 
OB SE 1; THE GENERAL REGISTERS R . AND R2, AND THE UCB. 
OB3E g : RO = DRIVE ERROR REGISTER. 
OB3E 4: R1 = MBA STATUS REGISTER. 
0B : 5: R2 = DRIVE STATUS REGISTER. 
: ; ; UCBSW_MT_FC(RS) = FRAME COUNT REGISTER. 
B3E 9° 
E 0 FEX: SFUNCTION EXECUTOR 
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TRORIVER = TMO3-TE16/TU77 MAGTAPE DRIVER 16-SEP-1984 AX/VMS Macro V04-00 Page 50 ™ 
Mra tt TMO3-TE1 ary HARDWARE FUNCTION EXECUTI ~$6b=1382 8: 96: 48 DRIVER.SRCJTMDRIVER.MAR:1 (1) | v0 
9C CS BED POPL : BSL_DPC(RS) :SAVE DRIVER PC VALUE 
0093 99 4 8 sean MOVB ,UCBSB_CEX(RS) SAVE CASE INDEX 
24 a3 09c6 c5 3¢ MOVZWL UCBSW_MT_TC(RS) MT T¢(R3) sSELECT DRIVE AND SET CHARACTERISTICS 

. fe Cayeee ROT agrarian ES1TRS) i STSPATCH YO PROPER FUNCTION ROUTINE | 
IMMED ,= :NO OPERATION | 
POSIT.= [UNLOAD VOLUME | 
POSIT. [SPACE FILE FORWARD 
RECAL.= REWIND 
IMMED.= 'DRIVE CLEAR | 
POSIT.- [SPACE FILE REVERSE | 
POSIT.- TERASE TAPE | 
POSIT. = ?SPACE RECORD REVERSE 
IMMED.~ [NO OPERATION | 
POSiT.= :SPACE RECORD FORWARD 
XFER,- [WRITE CHECK FORWARD 
XFER.= *WRITE DATA FORWARD 
XFER.= =READ DATA FORWARD 
XFER.= SWRITECHECK REVERSE 
XFER.= ‘WRITE DATA FORWARD 
XFER.= [READ DATA REVERSE 
RECAL,- [READ IN PRESET 
IMMED. = :SET TAPE CHARACTERISTICS 
IMMED = :SENSE CHARACTERISTICS 
POSIT, = SWRITE TAPE MARK 


INTERNAL SPACING FUNCTIONS 


SPACE RECORD FORWARD, AND 
SPACE RECORD REVERSE. 


THESE FUNCTIONS ane at naar TO gh ayy OPERATIONS DURING Le ERROR 
RECOVERY OF WRITE TAPE MARK, ERASE TAPE, AND ALL DATA TRANSFER FUNCTIONS, 

et CHECK AND WRITE CHECK REVERSE FUNCTIONS ARE USED bg ACTUALLY POSITION | 
THE TAPE. IF A NOISE RECORD IS ENCOUNTERED, IT IS IGNORED 


Pettit ttttttttttttttop dette ttetteptetetetetetetttetteteteteteted 

> PASSES SS SSS SSS SSS SOS rire er rw 
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090909090909 0909 SI NIN NNN DD DP DDD DP DDD TB BBB BB EEE EAN 
NOME WN 0 OD NOU EWN 0 OD NA UNE WIN 0 OD NOU EW CO OONOA NE WH CO OONOUN ES who 
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INTSPC s INTERNAL SPACE FUNCTIONS 
Q65A 30 BSBW TM SETINTSPC ‘SETUP FOR INTERNAL SPACE FUNCTION 
50 0093 (5 9A MOVZBL UCSB CEX(R5) RO SRETRIEVE FUNCTION INDEX 
50. 15 #91 CMPB  - #CDF_INTSPCREV,RO ;SPACE RECORD REVERSE? 
06 12 BNEQ 10% :IF NEQ NO 
OC AS) «OOMFF BF 3¢ MOVZWL #511, MBASL_VAR(R4) SADJUST VIRTUAL ADDRESS REGISTER | 
10$:  DSBINT iD1SABLE INTERRUP | 
57 6 05 £0 BS #ucB v opouer UCB$W_STS(R5),20$ ;IF SET, POWER FAILED 
6 Fone cr40 9A MOVZBL FTAB 1 est R3) SEXECUTE FUNCTION 
WF IKPCH RETREG ON -5 CRO} “WAIT FOR INTERRUPT AND akEeP CHANNEL | 
00B4 (5 0B AG 00 MOVL L_§r (Ras, UCBSe “MT_SR(R5S) ;SAVE FINAL 
OSFC SBW TR Asko RST :SA VE DRIVE STA 
7 10F ORK REATE FORK PR ores 
33 64 AS 05 E0 8p S #UCBSV_POWERUCBSW_ srsin§y, O$ IF SET, POWER FAILED 
GOB4 CS  00013F80 BF CA OBC BICL #MBASM™SR ATIN! CLEAR ATTENTION AND, 
cB MBASM_SR Rett ie : ATA LATE AND, 
(8 MBASM~SR-DTABT !- [DATA TRANSFER ABORT AND, 
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v06= THOS TEIB/ TUT? HARDWARE FUNCTION EXECUTI met 88:98:38 DRIVER. SRCJTMDRIVER.MAR; 1 wo 
a) 8 MBASM_SR_DTCOMP! = ZDATA TRANSFER COMPLETE AND, 
CB MBASM~SR-MBEXC!- SMASSBUSS EXCEPTION AND, 
CB 0 MBASM— AXES ; MISSED TRANSFER AND, 
(B 2391 MBASM~SR-WCKLWR! WRIT CHE CK LOWER AND 
¢B 36 " ASH “SR-WCKUPR, "UCBSL MT" SR(R5) TE CHECK UPPER 
28 12 OBCB 239 BNEQ F1F _NEQ EATAL SPACING ERROR 
50 0093 (5 OA BCD 94 MOVZBL vies SEX (RS) - RO 'GET FUNCTION INDEX 
OOBA CS) FGFS CF4O «6AA OOD 95 BICW XTABCROJ,UCB$W_MT_ER(RS) ;CLEAR EXTRANEOUS DRIVE ERROR BITS 
19 1 DA %6 BNEQ F EQ F FATAL SPACING ERROR 
13 0088 C5 0@ E Dg 9 BBS mt -DS_V_1M,UCBSW_MT aosch ),30$ :IF SET, TAPE MARK ENCOUNTERED 
0 E E 98 BBS #MT “P If at 1600 6 Pi, branch orqune test 
OD 0088 (3 OBE4 99 UCBSW AT~DS(RS) .30$ for As ph Length record. 
ouBc ¢ — 81 OBE8 2400 CMPW PRIN, RECORD, venga MT -pccks) :MINIMUM RECORD READ? 
06 18 OBED 2401 BLEQU 308 ~ :1F LEQU YES 
FF56 «31 «~OBEF «24 “ BRW RESTART ZRESTART FUNCTION 
oie? 1 OBF2 240 208: BRW ENBXIT ; 
013 31 UBFS 2404 30$: BRW RETREG : 
OBF 405 
F 406 ; 
oe tba 3 POSITIONING FUNCTION EXECUTION 
OBF8 2409 ; FUNCTIONS INCLUDE: 
OBF8 2410 | 
OBF 411 ; SPACE FILE FORWARD, 
OBF 41g : SPACE FILE REVERSE, 
OBF8 2413 : RASE TAPE 
OBF8 2414 : SPACE RECORD REVERSE, 
OBF8 2615 ; SPACE RECORD FORWARD, 
OBFB 2416 | UNLOAD, AND 
sere 417 i : WRITE TAPE MARK. 
OBF8 2419 : THE FUNCTION IS INITIATED AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTERRUPT 
BF 8 4 0; + OCCURS FINAL DEVICE REGISTERS ARE RETURNED TO THE CALLER. 
dar 8 452 ° 
OBF8 24 5 POSIT: : POSITIONING FUNCT ION EXECUTION 
OBF8 2424 DSBINT DISABLE ALL INTERRUPTS 
20 64 ASO £0 OBFE 425 BS #UCBSV_POWER,UCBSW_STS(R5) ENBEXT IF SET, POWER HAS FAILED 
14,A3_00BE C5 0CO3 24 6 CVTWL  UCBSW_AT_SPACNT(RS),MT_FC(R3) ;LOAD FRAME COUNT REGISTER 
63 F448 CF4O 9A 0C09 4 OVZBL FTABCRO];MT_CS1(R3) sEXECUTE FUNCTION 
OCOF 2428 WFIKPCH RETREG, TIME~OUTLROJ [WAITFOR INTERRUPT AND KEEP CHANNEL 
00c9 31 ~OCIC 2429 RW SETDEN ; 
CIF 2430 
CIF 2431 ; 
cle 4 ¢ > IMMEDIATE FUNCTION EXECUTION 
cir r 33 ; FUNCTIONS INCLUDE: 
CIF 24 : : NO OPERATION, AND 
cle 4 ri DRIVE CLEAR. 
CIF 439 ; THESE FUNCTIONS ARE EXECUTED IMMEDIATELY AND THE FINAL DEVICE REGISTERS 
CIF 2440 ; ARE RETURNED TO THE CALLER 
CIF 2641 : 
CiF 44g 
CIF 2443 IMMED: s IMMEDIATE FUNCTION EXECUTION 
CIF 2444 DSBINT [DISABLE INTERRUPTS 
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Mara ti TO3-TE1 /tur? HARDWARE FUNCTION EXECUTI mets 88: 96: 48 YORI RIVER. SRCJTMDRIVER.MAR; 1 ’ (1) | 
6 6 05 €0 0C25 2445 BBS #UCBSV_POWER,UCBSW_STS(RS5), ENBEXT s1F SET, POWER HAS FAILED | 
63 tad? cF40 9A c A 44g ae MOVZBL FTABCLROJ,MT Wasttty iE KECUTE FUNCTION 
00E9 31 : 448 BRW ENBXIT : 
C $29 3 
C 4 1 : RECALIBRATE FUNCTION EXECUTION 
C 38 ; FUNCTIONS INCLUDE: | 
C 455 : READ IN PRESET, AND 
¢ $28 : REWIND. | 
OC 458 : THE FUNCTION IS INITIATED AND A WAITFOR INTERRUPT 1S EXECUTED. WHEN THE INTERRUPT | 
0c 459 : OCCURS A TEST IS MADE TO SEE IF POSITIONING IS STILL IN PROGRESS. IF POSITIONING | 
o¢ 460 : IS STILL IN PROGRESS, THEN ANOTHER WAITFOR INTERRUPT IS EXECUTED. ELSE FINAL DRIVE 
Oc ie) > REGISTERS ARE RETURNED TO THE CALLED. 
OC 463° 
OC 464 RECAL :RECALIBRATE FUNCTION EXECUTION | 
0¢ 465 DSBINT “DISABLE INTERRUP | 
F264 AS 05 £0 0C39 2466 BS #UCBSV_POWER, UCBS$W_STS(R5),ENBEXT ;IF SET, POWER HAS FAILED | 
63 F413 CF40 9A OC3E 2467 OVZBL FTABCROJ,MT_CS1(R3) SEXECUTE FUNCTION, 
Oca4 468 WFIKPCH RETREG, #60*7 ;WAITFOR INTERRU | 
52 046 03 12 «78 C32 469 ASHL  #31-MT_DS_V_PIP,MT_DS(R3),R2 ;POSITION NING. IN PROGRESS? 
2C 18 O0C5? 2470 BGEG $ :1F GEQ NO 
0¢59 2471 OF ORK ‘CREATE FORK PROCESS 
OCSF Are DSBINT “DISABLE INTERRUPTS 
52 04603 12 78 OC65 247 ASHL #31-mt _DS_V_PIP,MT_DS(R35,R2 ;POSITIONING IN PROGRESS? 
C4 18 OC6A 247% BGEQ ENBEXT -{F GEQ NO 
BF 64 AS 05 €0 O¢6¢ 475 BBS #UCBSV POWER,UCBSW_ STS(R5) -ENBEXT IF SET. POWER HAS FAILED 
11 009A cS) (07”—s«E0.—s«éOC71 476 BBS #losy NOWAIT-UCBSW~ TFUNC (R55 20$ :1f SET, NO WAIT FOR REWIND 
sean ie ocr? 42? a WF IRLCH RET REG, #60*7- sWAITFOR FINAL INTERRUPT 
01 «AB Oc86 479 20$:  BISW  #UCBSM_MT_REWIND,UCBSW pkvstsiRs> :SET REWIND IN PROGRESS | 
0088 (5 04 ASF? CBC 480 CVTLW © -MT_DS(R3) UCBSW_MT_DS(R5) DRIVE STATUS 
CS «Bs 0C92 «2481 CLRW =: UCBSW_MT ERE R5)~ cieaR NSA VED ERROR STATUS 
(96 24 ; ENBINT ; ENABLE INTERRUPTS Ae 
009A 31 C99 483 BRW RETREG : 
C9C 2485 ; 
ocgc 4 6 : TRANSFER FUNCTION EXECUTION | 
coc 4 : : FUNCTIONS INCLUDE: 
(9¢ 5490 : WRITE CHECK, : 
(9C 2491 : WRITE DATA | 
C9C 49¢ ; READ DATA, 
C9C 2493 : READ DATA REVERSE, AND | 
c9¢ 494 : WRITECHECK DATA REVERSE. 
C9C 496 : THE MAP REGISTERS, BYTE COUNT REGISTER AND VIRTUAL ADDRESS REGISTERS ARE LOADED. | 
C9C 2497 : THE FUNCTION IS INITIATED AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTERRUPT | 
coe 498 + OCCURS FINAL DEVICE REGISTERS ARE RETURNED TO THE CALLER. | 
C9¢ 200 ; 
€9C 2501 XFER: ; TRANSFER FUNCTION EXECUTION 
} 
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08 AC) «6000)Cs«é2s«é9 : MCOML #0,MBASL_SR(R4) :CLEAR MASSBUS ADAPTER ERRORS 
| CA LOADMBA "LOAD MAP, BYTE COUNT AND yViRTUAL ADDRESS 
| 50 9093 5 9A OCA 4 MOVZBL UCBSB CEX(RS) ,RO RETRIEVE “FUNCTION TABLE 
F 91 OCAB 5 CMPB ss ACF _LREADDATAR, RO READ DATA REVERSE? 
5 13 OCAE 25 5 BEQL s1F EQL YES 
50 0b 91 OCBO 25 CMPB «= ss #CDF_LWRITECHECKR,RO SWRITE CHECK DATA REVERSE? | 
A 12 OCB : BNEQ ‘IF NEQ NO 
51 7€ AS 3¢ CB 10$: MOVZWL UCB$W_BCNT(RS),R1 GET TRANSFER Brie COUNT 
| 1 07 0O¢B9 10 DECL SREDUCE B T BY 
oc a6) «651s COs«éOCBB O51 ADDL — R1, MBASL_VAR(R4) CALCULATE “ENDING ADDRESS OF BUFFER | 
CBF 31g 20S: DSBINT DISABLE INTERRUPTS 
5264 AS 05 €0 OCCS 251 BBS reat POWER, UCBSW_S $1$(R5) ENBXIT :IF SET, POWER FAILED 
4A3_ 10 AG DO OCCA 2514 MOVL RcR4S MT _FC(R3) ;LOAD FRAME COUNT REGISTER 
63 F382 CF40 9A OCCFE 2515 MOVZBL FTABLR ce (RS) : INITIATE FUNCTION 
CD 316 WFIKPCH RETREG TIRE bur CRO) ‘WAITFOR INTERRUPT AND KEEP CHANNEL 
0084 ¢5 «408 AG ODO cE 31 th MBASL_SR(R4J,UCBSL_MT_SR(R5) ;SAVE FINAL CONTROLLER STATUS | 
08 03 FO OCEB 2519 INSV  &#MTSK_NRZ1_800,4MTSV_DENSITY,- ;SET CORRECT DENSITY CODE 
4405 05 OCEB 2520 #MT$S pENSTTY UcBSL =DEVDEPEND(R5) ; | 
08 O03 FO OCEE 2521 INSV = #3, #MT_TC_V_D 
00c6 cS) (03 OCF1 25 : #mt_Tc “5 SER UCéSY mT_TCtRS) : 
04 A320 D3 OCFS 25 BITL  #MT~DS“M~PES.MT_DSTR3) iNRZI ENCODED TAPE? 
16 13 OCF9 2524 BEQL DRVREG™ EQL YES 
08 04 FO OCFB 2525 INSV  &#MT$K_PE_ 1600, #MTSV _pensity, = ;SWITCH TO PHASE ENCODED TAPE 
4 a3 05 * Ore 3 6 a ans reRsiTyU UCBSL “DEVDEPEND (RS) : 
00c6 ¢5) 03 0004 2528 ante TC7S_ BER, UcéSW_ MT_TC(RS) 
44 A5 08 AA O0D08 2529 BICw #MTSM PARITY. UCBSL =PEDDEPEND RS) sCLEAR EVEN PARITY 
00c6 CS) «=(08-)—S— AAs«(DOC 2530 BICw  #MT_TC_M_EPAR,UCBSQ_MT_TC(RS) 
0D11 2531 DRVREG: O oAve BRIVE REGISTERS | 
049F 30 0011 25 : BSBW = TM_SAVDRVSTS :SAVE DRIVE STA 
0D14 25 10F ORK [CREATE FORK PROCESS | 
1A 11)—OODIA. 2534 BRB RETREG ; 
Bie Be | 
OD1C 2537 : ENABLE INTERRUPTS | 
DiC 2538; 
BE $825 event 
00BA CS) «08 AS” sCOF?=sOOD1 541 CVTLW © MT_ER(R3),UCBSW_MT_ER(RSS ;SAVE ERROR STATUS REGISTER 
0088 C5) «04 AS.SCOF?=sOOD 348 CVTLW MTDS(R3).UCBSWIMT-DS(R5) :SAVE DRIVE STATUS REGISTER 
00c2 ¢5 24 a3 F7 OD 54 CVTLW MT-TC(R3) UCBSW-MT-TC_SAV(R5) ;SAVE TAPE CONTROL REGISTER 
00c0 cS) 63)—CO*F?~—sCOD 544 CVTLW = MT~CS1(R35 ,UCBSO_MT_CS1(R5) ;SAVE DRIVE CONTROL REGISTER | 
Op 345 ENBINT TENABLE INTERRUPTS 
Dae 5809 
D36 348 t RETURN REGISTERS 
bee 5880 * | 
D36 2551 .ENABL LSB 
D36 32 RETREG: : RETURN N FINAL 0 D vice REGISTERS 
E1 0D36 255 BBC #MT_D : If NOT , branch around 
14 0088 ¢5 D38 2554 y Bsu aT: ~bSthS), 0$ : dead track | 
9 ED OD3C 2? CMPZV : Test for all 3 Bo aah dead. 
oe 900 Ds é ucésu” nT _CC_SAV(RS),= | 
12 pis 2h BNEQ Os. ; NEQ means all 9 tracks not dead. 
j 
[ 
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TMO3 Roe e/ Turd WUARDUARE FUNCTION EXECUTI §-§ asatt 88:96:38 DRIVER. SREJTMDRIVER.MAR; 1 # a) 
40 8F AB OD4S9 59 BISW #MT_ER_M_INC ; Correct hardware glitch that doesn't 
inh ¢5 + 08 ucBSw_AT- “ER(RS) : set INC bit whenvail tracks dead. 
9365 9a OD MOVZBL uces X(R5) RI :GET CURRENT | FUNCTION INDEX 
50 OOBA cs” 1 eet AB D é ite RIABERI.U ,UCBSW_MT_ER(RS) RO ;GET FINA DRIVE ERROR STATUS 
51 4 C3 p D 64 MOVL R(RST,RT SRETRIEVE FINAL CONTROLLER STATUS 
: 008 ¢ g D6 65 MOVZWL Matis MT “pe CRS) (Re? SRETRIEVE CONTENTS OF DRIVE STATUS REGISTER 
64 A F B63 0D6 66 BITW ##UCBSA_POWER!- “POWER FAIL OR DEVICE TIMEOUT? 
D6E 256 ycB BSM "TROUT UCBSW. STS(R5) 
03 «13 6 8 BEQL $ : edt implies NO special condition. 
008 31 D? § “ BRW 70$ : NEQ implies YES - SPECIAL CONDITION 
0093 C5 QA 91 0D7 8 CMPB #cOF LWRITECHECK,UCBSB_CEX(R5) ;DRIVE RELATED FUNCTION? 
9 1A 007 ie BGTRU 10$ s1F GTRU YES 
0093 ¢5 16 91 D7 373 CAPS CDF INTSPCFOR,UCBSB =CENERS) j INTERNAL SPACE FUNCTION? 
0093 cS «6102S 91's«ODB1 2575 CMPB ss HCDF_LREADPRESET,UCBSB_ cekirs) -DRIVE RELATED FUNCTION? 
18 «18 D6 376 BLEQU 10$ ~ :1F Ledu YES 
D8 578 ; 
ong 379 ; CONTROLLER RELATED FUNCTION 
D : $81 ; 
51 OOOESFFF 8F 03 O08 5 : 5$: BITL § #MBASM_ERROR,R1 ZANY CONTROLLER ERRORS? 
3 1 DBF 258 BEQL F EQL NO 
51 000C000B BF D3 0D91 384 BITL §§ #MBASM_SR_ERCONF!- ZERROR CONFIRMATION OR, 
i REAGR-ER-Pac’=” ROSA ug"EBRON og MEOUT © 
09 288 MBASM~SR-NED |= :NONEXI STENT SRIVE. oR 
D98 588 MBASM~SR-RDTO,R1 ;READ TIMEOUT? 
53 12 D98 2589 BNEQ 60$ SIF NEQ YES = FATAL CONTROLLER ERROR 
51 00024F74 BF OD 590 BITL #MBASM_SR_DLT!- SDATA LATE OR 
591 MBASM_SR_TNVMAP!- STNVALED MAP REGISTER OR 
D 39¢ MBASM~SR-MAPPE ! = ;MAP REGISTER PARITY ERROR OR, 
59 MBASM~SR-MCPE ! - MASSBUS CONTROL PARITY ERROR OR, 
594 MBASM_SR~SPE!- tMBA SILO PARITY ERROR 
595 MBASM~SR-MDPE ! - :MASSBUS DATA PARITY ERROR OR, 
596 MBASM~SR—MXF != :MISSED TRANSFER OR 
59 MBASM-SR-RDS | - [READ DATA SUBSTITUTE OR 
598 MBASM~SR~WCKLWR! - [WRITE CHECK LOWER BYTE or, 
599 MBASM~SR-WCKUPR,R1 WRITE CHECK UPPER BYTE? 
06 12 as BNEQ 208 [IF NEQ YES = RETRIABLE CONTROLLER ERROR 
6 
608 t DRIVE RELATED FUNCTION 
605 ° 
51 D4 606 10S: CLRL sR 7CLEAR CONTENTS OF STATUS REGISTER 
0 8B 6 TSTw = RO SANY DRIVE ERRORS? 
1 608 BEQL ©: 508 t1F EQL NO 
50 4007 BF B 609 20$: BITW #MT_ER M_ILF!- SILLEGAL FUNCTION OR, 
610 mT_ER_A_TLR!- sILLEGAL REGISTER OR, 
61 MT"ER-M-RMR!- SREGISTER MODIFY REFUSE OR, 
6i¢ MT~ER-M~UNS RO SDRIVE UNSAFE 
» 61 BNEQ 608 i1F NEQ YES = FATAL DRIVE ERROR 
20 50 fI 614 BBC #MT_ER_V 40$ "IF CLR, NOT NONEXECUTABLE FUNCTION 
0093 ¢ F 1 615 CMPB sé READDATARS UCB$B_CEX(RS) ;READ DATA REVERSE 
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0093 cs 08 1 PaPbRCOF _SPCFILREV,UCBSB_ cextas) POSPACE FILE REVERSE? 
0093 ¢5 : 9 CHS #CDF_SPCRECREV, ucase_cExiRs) SPACE RECORD REVERSE? 
0093 C5 OD 9 cnPB DF _WRITECHECKR ,UCBSB_CEX(R5) SWRITECHECK REVERSE? 
oosc (SBA 308 CLRW © UCBSW_MT_FC(RS) TCLEAR SAVED FRAME COUNT REGISTER 


; RETRIABLE ERROR EXIT 


DB9 
dB 
oc 
oc 
oc 
2 
bb 
DD4 
DD4 
DD4 
Db 
43 O009C D5 3 DDS 40$: CVTWL ovceet. thy? (SP) seer BRANCH Siok teekes 
009C C BE C DDI ADDL (SP)+,0CBS$L_DPC(RS) nS) 608 hes Ie DRESS = 2 
09 OO9A C F E DDE BBS ai0sv-IN THGRETRY vcasu. rune cr ),60$ ;IF SET RET RY INHIBITED 
009c ¢5 0@ CO ODES 50$: ADDL c(r5) ADJUST TO’ CORR Rect RETURN ADDRESS 
009c DSi Obes JMP soebee *DPCCRS) ‘RETURN TO DRIVE 
DED : 
QDED 3: FATAL nadine on OR DRIVE ERROR 
DED ; Here we log a device error (unless the only error is that the media 
+34 3 on the device is OFF-LINE) and then we branch to FATALERR. 
ODED 
DED 60$ 
07 52 OC €0 ODED BBS 4#MT_DS_V_MOL,R2,63$ : Branch to tog error if media ON-LINE. 
50 4000 8F 861 DF1 CMPW #MT~ER_M_UNS, *RO : Drive is OFF-LINE. See if ONLY error 
ODF6 : is UNSAFE. If so, this implies 
gore ; ONLY error is that media + OFF-LINE. 
06 13 ODF BEQL 66$ : Branch around logging of error if 
aor 63$ : ONLY off-Line. 
O0000000'GF 16 ODF 668 JSB G*ERLSDEVICERR ; Log Device Error. 
FLO3 31 ore BRW FATALERR 3 
E01 3 
44 3; SPECIAL CONDITION ( POWER FAILURE OR DEVICE TIME OUT) 
E01 . 
68 AS 01 E01 70$: BICW #UCBSM_MT REWIND UCBSy DEVSTS(RS) inehAr ce REWIND IN PROGRESS 
46 AS 19 A8 E05 BISW #<MTSM “LOSTa-16> ,UC bey sa 8 i Pt POSITION LOST 
65 64 AS 0 E4 $44 BBSC #UCBSV— POWER ,.UCBS¥_ tte: »,100$ ;IF SET, SOUER FAILU 
E 3 
EOE ; DEVICE TIME OUT 
EOE 
Org 30 OE0 BSBW TM_SAVDRVSTS 3 Save drive registers in UCB for ERROR LOGG 
09 00000 ' GF 16 OE1 JSB G*ERLSDEVICTMO 3408 DEVICE at OUT 
4 AS DO 0E1 MOVL UCBSL_CRB(R5) ,R3 GET tes dt oF eRIMARY a J 
3 0a3 00 OEF1B MOVL  CRBSLLINK(R35 ,R3 BT ADDRESS OF SECON 
CA bo E1F MOVL CRBSL INTDSVECEL IDB(R3),R35 ;GET ADDRESS OF SECONDARY 108 
04 a3 3 D1 OE 3 CMPL = RS, IDBSL_OWNER(R3) :DEVICE OWN CONTROLLER 
2 12 OF BNEQ 80$ EQ N 
E29 DSBINT [DISABLE INTERRUPTS 
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. 06 ny) E F 73 MOVL mpAtt eh CR gABORT!MBASH_ CR.IE,- ;ABORT THE DATA TRANSFER 
E ; 75 WFIKPCH 7 ims 'WAIT FOR ABORT AND KEEP CHANNEL 
e? 4 798 1OF ORK ‘CREATE FORK PROCESS | 
4 AG 91 DO OE4 ere "MOVE «= #MBASM_CR_INIT MBASL CR crika) s INITIALIZE ENTIRE MBA 
AG 04 00 O&47 267 MOVL #MBASM"CR7IE MBASL_CR(R4)  EWABLE MBA INTERRUPTS 
E48 2680 80S: SETIPL UCBS$B_FIPC(RS) ;LOWER IPL TO DEVICE FORK LEVEL 
0080 CS) «DS (OESF 2681 TSTL UCBSL_RECORD(R5) ; Timeouts on READS at BOT are due to 
€5 6 § : lack of an ID burst that ghoule NOT 
€5 6 ; Cause a CLEAR of UCBSM_VALID. 
1 E ? 4 BNEQ 0$ ; If NOT at BOT than oe oneal 
f g E 5 CMPB #COF_READDATA,=- 3; See if last function was a READ. 
0092 ¢ E 6 § UCBSB_FEX(RS5) 
06 13 tH ? BEQL TIMEOOT : if of tse . brench ground clearing of 
64 AS 0800 BF AA E> eas 908: BICW  #UCBSM_VALID,UCBSW W515) vey VOLUME SOFTWARE INVALID 
50 022C BF 3C OF62 2691 "MOVZWL = #SS$_TIMEOUT,RO ‘SET FINAL COMPLETION STATUS 
Ee) Se98 
E67 2694 : RESET TRANSFER BYTE COUNT TO ZERO 
Fey S696 
E67 697 RESETXER: P 
0oBc C5) = B4SCOE67 «= 2698 CLRW © UCBSW_MT_FC(RS) ZCLEAR SAVED FRAME COUNT 
5 4 OEF6B 2699 LRL :CLEAR DRIVE STATUS 
FCO 1 OE 6D 700 BRW FUNCXT : 
ss 378 
0E7 78 > POWER FAILURE 
BE70 S708 | 
0183 31 OE7 36 99$: BRW e208 ranch around to ABORT powerfail. 
£464 A5 OB €1 OE7 707 100$: BBC #UCBSV -VALID. ,ucBsu stsréye 908 “IF CLR, VOLUME SOFTWARE INVALID 
04 A8 OE7B 2708 BSW PUCBSATM REL «= Set flag that we are in REPOSITIONING 
68 AS OE7A 209 ave UCBSW_ BevSTScR j : Rae This is looked at in CANCEL. 
oer re "  RELCHAN ;RELEASE ALL CHANNELS 
E 713; 
Hf ne :; Try to initiate REWIND of the drive by issuing a hardware rewind command. 
716° 
33 nS REQPCHAN ; R4 => TMO3 CSR. 
03 €0 OE oe BBS #UCBSV_MT_CNCLP,- See if 10$_ CANCEL occurred while we 
E35 68 AS : : at UCBSW_DEVSTS(RSS ,99$ ; were in résource wait. If SO, branch. 
24 AG =: 0066 cs C EBD 721 MOVZWL UcBsW MT_TC(RS),MT_TC(R4) sSELECT DRIVE 
64 09 OA E93 , : mOvZBL # F_DROCLR'1,MT_CS1TR4) ;CLEAR DRIVE 
05 €4 OF9C 2724 BBSC $#UCBSV_POWER,- : If another POWERFAIL, clear bit and 
1F 64 AS EGE 725 UCB$W_STS(R55,104$ : branch aroun 
07 9A OEAI 27 : MOVZBL #F _REQIND!MT_CS1_M_GO,- : Initiate REWIND command, if the 
64 EA3 27 MT~CS1(R4) : hardware accepts it. 
EA4 27 8 WFIKPCH 103$,#2 3; Wait for interrupt or for shor 
EAE 27 3; timeout. If we Pole aeons the 
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~ 4 00:06: AX/VMS Macro V04-00 ) 5 
agra hy SUIY TARDGARE Fun cYTON N EXECUTI "er SEp 198e 5:99:89 DRIVER. SRCJTMDRIVER.MAR; 1 (1 | 
TMOS-TEI6/ TU HARDWARE FUN Leet 1 
; rewind is completed the following I! 
EAE 4 9 : wait loop will take care of this. 
AE 
A ie me | 
? IOFOR : o FORK Level in case we ha H 
EBs 734 1038: SETIPL UCBSB_FIPL(RS) aa meoute i | 
EBs f § — 105$ : votes oR to await arrival at BOT. | 
or a: EC ? 3 : If we had another POWERFAIL, I 
EC 739 104$:  ENBINT 1008 ; branch back to try again. I 
oer ie a as 
F TAPE 
EE 748 ! WAIT FOR UNIT TO BE REWOUND AND REACH BEGINNING 0 | 
EC ; 
745 ;CLEAR MESSAGE TIME COUNTER i 
0093 cS 9% e 246 1058: CLRB UCBSB_CEX(R5) St yea tei ey fee. 
3 {51 A 2 IWAITFOR INTERRUPT OR TI : 
OECE 748 Yorces” :CREATE FORK PROCESS. 
ae eee ak a 
OEE ) 3; See h. 
2 68 AS a OEE 738 se UCeSu_DEVSTS(RSS. 99$ ; were in résource wait. If SO, branc 
8 
EE 2754 (R4) ;SELECT DRIVE 
Tes o a EL 
F? 2757 REL CHAN ;RETRIEVE SAVED DRIVE STATUS 
a ee Se ee a ek ee ee 
or et 83 BBS 1 .DS_V_EIP.RS. TIF CLR. MEDIUM OFFLINE 
Oc 85 OC ON. OFOS S761 BBC 1 bS-V-BOL RS 1358 TAF SETS AT ORGINNING DF. TAPE 
1€ 5 0 OFOD 276 :  ACBB #15781 UCBSB_CEX(RS) 1108 : TIME TO “n 
ren cons ME) ee a ee ererasti Somnath [661 Noone OF"ebEnaron maicoo 
; ‘GF § 9E OFID 2765 MOVAB G*SYSSG aX. ;SEND MESSAGE TO OPERATOR 
35 eeeb es ok roe 766 JSB G-EESSNBEVRS ; 
BRB ; 
ah c 768 00$ ; Branch back after another POWERFAIL. 
FF4G 31 OFeC 769 122$:  BRW 1 t 
; F TAPE 
f re 3 MEDIUM ONLINE AND UNIT POSITIONED TO BEGINNING 0 | | 
F ; 
rst gore AL value I 
Fer 2775 1258: -~  ¢ Force reposition to ORIGINAL v I 
S065 £3 Bree $778 MOM URE RTS BRSEREINOD-™: FORD GEPORLESS, | 
° PE POSITION 
P26 ¢77 ORD(RS) ,UCBSL_SVAPTE(RS) ;SAVE TA 
nome go EE tara 8c Ay a | 
REQ if I1O$_CANCEL occurre 
03 E0 Fag § = Ucesu DEVSTSiRsS, 1338; ye in résource oc¢ur If SO, branch. | { 
OE 68 A 4B ; 4 ROVE R4 RB SET ADDRESS OF DRIVE CONTROL REGISTER | i 
785 ‘ QUEST SECON 
ei 0 Fae 786 130$: REQSCHAN ;REQU 
| 
| 
| 
} 
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MO3-TE16/TU77 MAGTAPE DRIVE 16-SEP-1984 AX/VMS Macro V04-00 Page 58 
MOScTETE/S TU77 HARDWARE FUNCT! BN EXECUTI g-3EF- 138 88 96: 8 YORIVER. SKCITMDRIVER.MAR; 1 . (1) | 
03 €1 OFS4 2787 BBC #uc T_CN CL. ; See if IO$_CANCEL occurred while we | M 
03 68 7 F § 7? § UCbbu OE BEVSTS(R55,136$ : were in resource wait. If NOT, branch. | " 
OCA 31 : ; f ; 1378: BRW :; If SO, branch around to abort operation. a 
24 a3 0006 C5 3¢ F f MOVZWL UCBsw MT TECRS) oT MT rig (F3), SET TAPE CONTROL PARAMETERS « 
A OF 9 MOVZBL orate rakes cLEAR ad 
78 aS =: 0080 D1 «(OF 79 UCBs L CURT Mt Cs Mite SA PTE(R , VT APE CORRECTLY POSITIONED? Mm 
if F 794 : NEQ implies NO, not yet done. al 
00 4 PB 138$ Brae i 0$ 3 Else branch to end. | 2 
0267 30 OF7 538 BSBW =: TM_SETINTSPC ;SETUP MBA FOR INTERNAL SPACE FUNCTION 4 
F7 138 DSBINT DISAB ABLE INTERR " 
6B 64 A 95 £0 F79 87 BS #UCBSV_POWER,UCBSW ~E15(3}-16 sIF SET, ANOTHER POWER FAILURE “ 
7 9 9A rv 00 MOVZBL A WRIT CHECK!1,MT~CS1(R3) sEXECUTE FUNCT ™ 
F8 01 WFIKPCH 14 ;WAIT FOR FUNCTION TO COMPLETE mM 
00B4 (5) (0B AG 00 £88 0¢ MOVL  MBASL api UCBSL_MT_SR(R5) ;SAVE FINAL MBA STATUS M 
O21F F91 0 BSBW TM_SAUDR sSAVE DRIVE STATUS % 
F94 2804 1OF ORK i CRE ATE FORK PROCES 4 
OF9A 805 140$:  SETIPL UCBSB_FIPL(RS OWER IPL TO FORK LEVEL ™ 
49 64 a5 05 €0 OF OE 06 BBS #UCBST_POWER Ucesu stscré) 1 Os :1f SET, ANOTHER POWER FAILURE 4 
3E 64 AS 06 «£0 OFAS 2807 BBS PUCBSV- “TIMOUT ,UCBSO_ STS(R5S, 155$ IF SET DEVICE nN ME OUT 
OFAB 08 RELSCHAN RELEASE SECONDARY ARY 4 
OOBA CS F142 CF AB OFAE 09 BICW3 XTAB+<COF INTSPCFOR®2>,UCBSW. MT_ER(R5) ,RO cet NORIVE ERROR STATUS 4 
51 0084 C5 BO OFB6 3810 MOVL  UCBSL_MT_SR(R5),R1 :GET-FIRAL MBA STATUS ™ 
52.0088 C5 C OF 811 MOVZWL Matt MT~DS(R5) .R2 :GET FINAL DRIVE STATUS io 
51 00013F80 BF CA OFC Big BICL  #MBASA SR DLT!- :CLEAR DATA LATE AND, A 
OFC 1 $m_S "ITINi- TENTION AND, " 
OFC? 2814 MB DTABT!- ‘DATA TRANSFER TA " 
OFC? 2815 MBASM_SR-DTCOMP! ~ [DATA TRANSFER COMPLETE AND, " 
OFC? 1 MBASM_SR-MBEXC !- sMASSBUS EXCEPT " 
OF C7 81 MBASM~SR-MXF ! = :MISSED TRANSFER " " 
FC? 18 MBASM-SR-WCKLWR! - sWRITE CHECK LOWER AND, m 
FC? 81 MBASM_SR-WCKUPR,R1 ;WRITE CHECK UPPER a 
4c 12 FC? 0 BNEQ 190$ ~ 31F NEQ FATAL SPACING ERROR " 
50 B85 OFC9 8 1 TSTw = RO sANY FATAL DRIVE ERRORS? . 
48 12 OF CB é BNEQ 190% s1F NEQ YES ct 
OE 5 0¢ EO OFCD 28 BBS #MT_DS_V_TM,R2,150$ s1F SET, TAPE MARK ENCOUNTERED " 
OA 52 05) «620 «(OFD1 «2824 BBS #MT"DS~ “\" “pE§,R2,150$ +: If at 1600 BPI, branch around test YI 
FDS 5 : for minimum Length record. i 
0oBC C5 Of B1 OFDS $ CMPW 138 RECORD ,UCBSW_MT -FC(RS) >MINIMUM RECORD READ? " 
0 18 OFDA BLEQU med implies ee etnias record read. J 
FF OF 31 FDC 8 BRW 3 : Else branch o read next. " 
0080 ¢3 i EDF 150$: INCL UeesL_ RECORD(RS) ; UPDATE CURRENT. TAPE POSITION 4 
FESS 1 Ore 155$: BRW 90$ : " 
FE9 $ i 
FE9 4 : POWER FAILURE DURING REPOSITIONING OF TAPE " 
FE $ 4 
FE9 1608: ENBINT LE INTERRUPTS M 
0080 (<5) 678 AS) ODO COE 8 170$: MOVL UCBSL_SVAPTE(R5S) .UCBSL _nEEORD(RS 5) :RESTORE TAPE POSITION ” 
FEB? «= 31 FF 3 BRW tit te : " 
FF 41; it 
FE 4¢ : TAPE SUCCESSFULLY REPOSITIONED - RESTART FUNCTION " 


Paes 


46 
64 AS 
78 As 


<i i 


64 AS 0800 8F 


0800 8F 
64 AS 
OBC C5 


al 


“SSa> 5 


K 1 
03-7 77 MAGTAPE DRIVER 16-SEP-1984 AX/VMS Macro V04-00 Page 
moscrE Tey Sare HARDWARE FUNCTION EXECUTI g- -SEP-1 138 88: 96: 48 DRIVER.S REIT MORIVER.MAR;1 ° 
FF 
fre rk 180$: RELCHAN RELEASE ALL CHANNE| $ 
44 rk} BICw ove ~~? Bere tRes : Clear flag renal ng that we are 
FFF 4 BICcW scnTSR oO tO ee UCBSL Set eee > CLEAR LOST POSITION 
: 4 BISW #uc UCBSA VALID ucasu_s STSTR LUME VALID 
1 0 MOVL UCBSL_TRP(RSSR TEVE A ADDRESS OF 1/0 PACKET 
1 1 MOVa tRPSt “MAPTECAS -UCBSL. sinPreth ) ;RESTORE TRANSFER PARAMETERS 
101 § W TM_STARTIO 
iB Si 
! 1 é 3; FATAL SPACING ERROR DURING REPOSITIONING OF TAPE 
101 57 ° . 
101 28 190$: BICW #UCBSM_VALID,UCBSW_STS(R5) ;SET VOLUME SOFTWARE INVALID 
1018 5 BICW #UCBSM_MT PURFL - ; Clear {lag signalling that we are 
101D 2860 UCB$W_BEVSTS(RSS : repositionin ng. 
101F 61 CLRW UCBSuE MT_FC(RS) TCLEAR SAVED FRAME COUNT 
1023 oe BRwW ATALERR™ 3 
1026 2863 200$: 
1026 64 BICW #UCBSM_MT_PWRFL!UCBSM -MTLCNCLP, - 
1028 65 UCBSW_BEvSTS(R5) ; Clear flag signaling that we are 
102A 96 ; repositioning AND that CANCEL was 
102A se : signalled. 
102A 68 BICW #UCBSM_VALID,=- 
10 3 58? UCBSW_ STS(R5S ; Set volume software invalid. 
10 870 CLRW UCBSW"MT_FC(RS) ; Clear saved frame count 
1034 2871 MOVL #Sss “RBORT :RO 3; Set abort status. 
1037 1h CLRL R2 ; Passed to FUNCXT. 
1039 87 BRW FUNCXT ; 
103C 874 -DSABL LSB 
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TMORIVER = TMO3-TE16/TU77 MAGTAPE DRIVER 16-SEP-1984 00:06: AX/VMS Macro v04-00 Page 60 
Mara ht Televtuy? CLASSIFY DRIVE TYPE AND SET PA aes t y $6: 98:28 YORIVER. SREITMDRIVER.MAR; 1 get) 
¢ ? ~SBTTL TE16/TU77 CLASSIFY DRIVE TYPE AND SET PARAMETERS 
c A: ; TM_DTYPE = TE16/TU77 CLASSIFY DRIVE TYPE AND SET PARAMETERS 
103¢ 0 : THIS ROUTINE IS CALLED WHEN AN UNSOLICITED INTERRUPT OCCURS ON A DRIVE, DURING 
103¢ 1 ; SYSTEM INITIALIZATION, AND AT POWER RECOVERY TO DETERMINE THE DRIVE TYPE, 
¢ : ; media id type, and SET UNIT PARAMETERS. 
c 4 : INPUTS: 
103¢ 6 ; R3 = ADDRESS OF TMO3 DRIVE CONTROL REGISTER. 
| ¢ : R5 = DEVICE UNIT UCB ADDRESS. 
¢ 83 : OUTPUTS: 
+ : $3 ; THE DRIVE STATUS REGISTER IS INTERROGATED AND UNIT PARAMETERS ARE SET. 
103C 2893 ° 
i$ ¢ $92 TM_DTYPE: :CLASSIFY DRIVE TYPE AND SET PARAMETERS 
18 As) DD «103C «(2895 PUSHL MT_CT(R3) [READ DRIVE TYPE REGISTER 
6 FEOO BF AA 103F 896 BICW «= #*C*X1FFD, (SP) ‘CLEAR EXTRANEOUS BITS 
52 FOOO CF 9E 1044 289 MOVAB TM _I\TDESC,R2 [GET ADDRESS OF DESCRIPTOR TABLE 
82 6€ B81 1049 2898 10$: CMPW 38s (SP). (R2) + :DRIVE TYPE MATCH? 
OE 13 104C 2899 BEQL 0 sIF EQL YES 
52 01 0d 1045 900 ADDL #TM_DTDESCLEN-2,R2 SADVANCE TO NEXT ENTRY 
I tae IP Peo gee 
64 A5 10 AA 193 308 BICWw  #UCBSM ONLINE ,UCB$W_STS(R5) sSET UNIT OFFLINE 
52 01 C2 1059 2904 SUBL  #TM_DTBESCLEN-2, 22 :BACK UP TO LAST DRIVE DESCRIPTOR 
41 a5 62 90 105¢ 905 208: MOVE (R2),UCB$B_DEVTYPE\RS) SET DRIVE TYPE 
1060 309 : Determine the media id type usingn vhe device type found above. 
1060 2908 ASSUME DT$_TE16 EQ 1 
1060 2909 ASSUME DT$~TU45 EQ é 
1060 2910 ASSUME DT$~TU77 EQ 
52 41 A5 9A 1060 2911 MOVZBL UCBSB_DEVTYPE(RS),R2 ; Get type 
008c cS) 41064 gg CLRL - UCBSLMEDIA_ID(R55 : Assume no media id 
1 a aro 
1068 915 Hite : TE16 
1068 916 40$,- + TU45 
1068 31 308, : TU77 
w WY ° 318 BRB 608 
008C C5 60285010 Ly b9 i 16 3 6 30$: MOVL #MEDIA_ID_TE16,UCBSL_MEDIA_ID(RS5) 
008C CS 6D29502D ef b0 H 3 é 40S: MOVL #MEDIA_ID_TU45,UCBSL_MEDIA_ID(R5) 
9504D 8F DO 1 924 50$: MOVL #MEDIA_ID_TU77,UCBSL_MEDIA_ID(R5) 
sian heen Femi 8E DS 1095 3 3 60S: st (SP)+ 7 ~ ;REMOVE DRIVE TYPE FROM STACK 


mt | 
MO3-TE16/TU77 Tape DRIVER 19-SEP-1984 AX/VMS Macro V04-00 Page 61 
Tm8 STele/TUr? REGt EGISTER DUMP ROUTINE g-3Ep 1984 68: 19; 39 DRIVER. SRCITMDRIVER.MAR;1 (1) 
1098 2028 .SBTTL TMO3-TE16/TU77 REGISTER DUMP ROUTINE | 
3 ? 0: TM_REGDUMP = TMO3-TE16/TU77 REGISTER DUMP ROUTINE | 
1098 29 ¢; THIS ROUTINE IS CALLED TO SAVE THE CONTROLLER AND DRIVE REGISTERS IN A | 
1098 29 SPECIFIED BUFFER. IT IS CALLED FROM THE DEVICE ERROR LOGGING ROUTINE AND 
3 ; 4; ; FROM THE DIAGNOSTIC BUFFER FILL ROUTINE. | 
! > 4 § 3 INPUTS: 
1098 29 § ; RO = ADDRESS OF REGISTER SAVE BUFFER. 
1098 2939 ; R4 = ADDRESS OF ADAPTER CON EIGURATION REGISTER. 
! > 279 3 RS = DEVICE UNIT UCB ADDRESS 
133 348 : OUTPUTS: 
199 vt : THE CONTROLLER AND DRIVE REGISTERS ARE SAVED IN THE SPECIFIED BUFFER. 
1098 2946 ° 
109 309 TM_REGDUMP : :TM03- oyete/Tu77 REGISTER DUMP ROUTINE 
80 11 D0. 1098 2948 MOVL &#<MT_TC+4+MBASL_BCR+4+8>/4,(RO)+ ; INSERT NUMBER OF DEVICE REGISTERS 
80 64 D0 1098 2949 MOVL MBASC_CSR(R4),(RO)+ TSAVE C tonk 1GURATION REGISTER 
80 046 Ad o9 109E 2950 MOVL MBASL=CR(R4),(RO)+ SSAVE CONTROL REGISTER 
80 0084 CS DO 10A2 2951 MOVL UCBSL“MT_SR(R5),(RO)+ SAVE STATUS REGISTER 
80 OC AS DO 10A 9¢ MOVL MBASL-VAR(R4), (RO)+ SSAVE VIRTUAL ADDRESS REGISTER 
80 10 a4 D0 10AB 295 OVL MBASL “BCR (RG) (RO)+ SSAVE BYTE COUNT REGISTER 
FB AO 08 09 EF 10AF 295% EXTZv #9 (RO) ,R1 ; FINAL REGISTER NUMBER 
80 0800 C441 DO 1085 2955 OVL MBASL *MAP(R4SCR1],(RO)+ ;SAVE FINAL MAP REGISTER CONTENTS 
80 04 10BB 2956 CLRL RO) + UME NO PREVIOUS MAP REGISTER 
51 D7 10BD 2957 DECL ; CALCULATE PREVIOUS MAP REGISTER NUMBER 
07 «19 10BF 958 BLSS 10% S NONE 
FC AO 0800 (441 po 10C1 2959 MOVL MBASL_MAP(R4)CR1] =4(RO) >SAVE PREVIOUS MAP REGISTER CONTENTS 
51 06 A 10C8 2960 10$:  MOVZBL #<MT_TC>/4-3,R1 NUMBER OF DRIVE REGISTERS TO SAVE 
52 246 A5 D0 10CB 2961 MOVL ucesc CRB(R5S ,R2 :GET ADDRESS OF PRIMARY CRB 
52 2C 82 OC C1 10CF 296 ADDL3 #4 SCRESL_INTD+VECSL_IDB(R2),R2 ;GET ADDRESS OF TMO3-TE16/TU77 REG 
80 00cO CS 3C 1004 296 MOVZWL UCBSW_MT_CST(R5),(RO)#™ SAV ORIVE CONTROL REGISTER 
80 0088 CS 3C 1009 2964 MOVZWL UCBSW"MT"DS(R5),(RO)+ SAVE DRIVE STATUS REGISTER 
80 OOBACS 3¢ 100 965 MOVZWL UCBSW-MT~ER(R5), (RO)+ 3 SAVE DRIVE ERROR REGISTER 
80 $e o9 10E3 2966 20$: MOVL  (R2)+-(RO)+ : SAVE DRIVE REGISTER 
FA 51 #=F5 1 EG 96 SOBGTR R1,20 ZANY MORE TO SAVE? 
0000 cS) 3C-_—s«10€E 968 MOVZWL UCBSW_MT_CC SAV(R5),=- 4 Rove orev testy eevee register 
F8 oF 10ED 2969 MT_CC=MT_TCTRO) s bac here it should go. 
80 00C2C¢ 36 1OEF 970 MOVZWL UCBSW_MT"TC_SAV(RS), (Ro)$ SAVE er APE aC NTROL “REGISTER 
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a ht THOS TEI E/ Ord TAPE DRIVE INITIALIZATION Bases 99:06:19 DRIVER.SRCJTMDRIVER.MAR:1 =o 1) 
f 975 .SBTTL TMO3-1E16/TU77 TAPE DRIVE INITIALIZATION 
F 309 ; TM_TXXX_INIT = TMO3-TE16/TU77 TAPE DRIVE INITIALIZATION 
10F ars : ; THIS ROUTINE IS CALLED AT SYSTEM INITIALIZATION AND AT POWER RECOVERY TO SET 
10F 208 + DRIVE PARAMETERS. 
1065 3979 : 
: ‘ 2 » : INPUTS: 
10F5 39 2 : R3 = ADDRESS OF TMO3 DRIVE CONTROL REGISTER. 
10F5 2983 : R4 = ADDRESS OF MBA CONF 16y RATION STATUS REGISTER 
F 3 4 ; RS = DEVICE UNIT UCB ADDRESS. 
1075 39 $ : OUTPUTS: 
10F5 2987 : 
10F 9 8 3 UNIT PARAMETERS ARE ESTABLISHED. 
iors $990 ° 
10F5 2991 TM_TXXX_INIT: 3TE16/TU77 TAPE DRIVE INITIALIZATION 
52 53 56 g3 1068 99 SUBL3 SCALCULATE OFFSET TO DRIVE CONTROL REGISTER 
3 FCOO C2 E 10F9 299 MOVA “nas eae i SUBTRACT OUT EXTERNAL REGISTER BASE 
0090 C5 0080 oF A? 10FE 299% DIVW Re, tensa ) ghee (RS) :SET ADAPTER DRIVE NUMBER 
0091 ¢5 0090 CS 20 85 1106 2995 MULB AHF wee ices Staves (85) utBse St LAVES1(R9) “SET DRIVE OFFSET CONSTANT 
00c6 ¢5 (03) «C00 S54 AS) «CFO OC110E «(299 INSV. UCB$W_UNIT(RS) yee su C(R5) ; INSERT UNIT NUMBER 
63 09 9A 1116 299 MOVZBL #F DROCLR!1,MT_ este ay :¢ Weela ORIVE 
7E 6405 3C 1119 2998 MOVZWL UCB$W_STS(R5),= =§$p} ce CURRENT UNIT STATUS 
08 AG «DD 111D 2999 PUSHL MBASL™SR(R4) *RE MBA S STATUS REGISTER 
68 AS 02 AA 1120 3000 BICW  #UCBSA_MT_PRVMOL,UCBSW DEVSTS(R “CLEAR PREVIOUS MOL STATE 
64 AS 0810 BF AA 1124 3001 BICW  #UCBSM~ONCINE!UCBSM_VACID,UCBSW_ sréth ) ;SET UNIT OFFLINE/INVALID 
i £0 112A 00¢ BBS #MBASV~SR_NED 5 YS) 30$ aid errs NONEXISTENT TMO3 
a4 A 00C6 C C 112€ 300 MOVZWL UCBSW_AT TC(RS) .MT Fc tR3i erect SLAVE DRIVE 
52 18 A Prrrotre CB 1134 3004 BICL3 #*C<*RFEOO>,MT_OT(R3) ,R2 -{SOLATE HIGH PART OF DRIVE TYPE 
52. 400 B1 1130 05 CMPW 3» #*XC400, R2 ie? DRIVE AND SLAVE PRESENT? 
2 12 1142 3006 BNEQ 0 
6445 10 AS 1144 3007 BISW  #UCBSM_ONLINE,UCBSW_ stschs Meer UNI IT yONL INE 
FEF! 30 1148 08 BSBW CLASSIFY Y DRIVE TYPE 
16 64 AS 04 gi 1148 300 BBC ‘ rBsy _ONLINE ,UCBSW sts (hs) OS :IF at TTpccnoune DRIVE TYPE 
52 04 A383 13 78 1130 10 ASHL 1-MT"0S_V_MOL .MT_BS(R3) as “MEDIUM CURRENTLY ONLINE? 
4 18 115 11 BGEQ { $ fF Gea NO 
68 AS 02 AB 1157 O1g BISW #UCBSM_MT PRVMOL L .UCBSY. pévss(Rs) -SET PREVIOUS MOL STATE 
06 04 AE OB €1 1158 3013 15$: BBC #UCBSV “VALID D,4 IF CLR, VOLUME SOFTWARE INVALID 
64 AS 0800 BF AB 1160 3014 BISW #UCBSM7VALID. ucesu erecnét -SET VOLUME SOFTWARE VALID 
63 09 9A 1166 3015 20$:  MOVZBL P DRVCLAT i_CS1TR3) 3CLEAR DRIVE 
08 AG) «OBE.sé#BE 9 1169 O16 0$: BISL (SPoa. (SP) + MBRSL_ SR(R4)* ";CLEAR MBA STATUS 
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fury UNSOLICITED INTERRUPT PRO 5-SEP-1984 8:99:38 LORIVER. SREITMDRIVER.MAR: 1 ° (1 
: -SBTTL TMO3-TE16/TU77 UNSOLICITED INTERRUPT PROCESSING 
: TM_UNSOLNT = TMO3-TE16/TU77 UNSOLICITED INTERRUPT PROCESSING 


ae IS CALLED WHEN AN UNSOLICITED INTERRUPT IS RECEIVED FOR A SLAVE 


TMDRIVER = TMO3- 
Vou-005 TMO3= 


co —-4 
ns" 


INPUTS: 


R4 = ADDRESS OF TMO3 DRIVE CONTROL REGISTER. 
R5 = DEVICE UNIT UCB ADDRESS. 


OUTPUTS: 
THE UNIT STATUS AND DRIVE TYPE IS ESTABLISHED. 


DD SY PF OOO OWWOWW VN VAPAAAAOAAAAAAAOAAAO 


MAROLMNOO NNG PNW 0 WT oe on oo 


WN OOOO NAUES WO OONOAUE WN O OONOUS "00 


TM_UNSOLNT: -UNSOLICITED INTERRUPT PROCESSING 
64 45 10 AA BICW  #UCBSM_ONLINE,UCBS$W_STS(R5) ;SET UNIT OFFLIN 
52 18 AG FFFFOIFF 8F CB BICL3 #*C<*XFEOO>,MT_DT(RZ),R2 ; ISOLATE HIGH PART OF DRIVE TYPE 
52. C400 BF BI CMPW 3s #*XC400,R ; TAPE DRIVE AND SLAVE PRESENT? 
26 if; BNEQ i NEQ NO 
64045 10 A BISW  #UCBSM_ONLINE,UCBSW_STS(R5) ;SET UNIT ONL INE 
5354 00 MOVL  R4,R3 ;SET ADDRESS OF TMO3 DRIVE CONTROL REGISTER 
FEAF 30 BSBW TM DTYPE CLASSIFY DRIVE TYPE 
1764 A5 04 €1 BBC #UCBSV_ONLINE ,UCBSW_STS(R5),10$ :IF CLR, UNKNOWN DRIVE TYPE 
OD 38 AS) (O13——~=C*ECY BBC #DEVSV—MNT,UCBSL_DEVCHAR(R5),5$ :BRANCH IF NOT MOUNTED 
08 38 aS) «18~SCOC*E: BBC #DEVSV~FOR.UCBSL_DEVCHAR(R5).5$ :BRANCH IF NOT FOREIGN 
- TAPE IS MOUNTED FOREIGN, SO... 
64 AS 0800 ar as BIsw sUCBSM_VALID ,UCBSU_STS(R5) ;SET VOLUME VALID 
06 64 A5 05 €0 5$: BBS #UCBSV_POWER,UCB$W_STS(R5),20$ ;IF SET, POWER FAILURE 
64 AS 0800 BF AA 10$:  BICW  #UCBSM~VALID,UCB$W~STS(R5) :CLEAR VOLUME SOFTWARE VALID 
64 09 9A 20$: MOV ZBL #F_DRVCLR'1,MT_CS1(R4) CLEAR DRIVE 
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- - PE DRIVER SEP=1984 00:06:10 VAX/VMS Macro v04-00 Page 64 | TS 
yore i safQORCTENG/TU77 MAGTAPE DRIVER. — ROUTINE Base Yi §3:9$:38 DRIVER. SRCJTMDRIVER.MAR: 1 a) v¢ 
118 i .SBTTL TMO3-TE16/TU77 DRIVE STATUS SAVE ROUTINE 
118 ; TM_SAVDRVSTS = TMO3-TE16/TU77 DRIVE STATUS SAVE ROUTINE 
18 3 : THIS ROUTINE IS CALLED FROM DEVICE INTERRUPT LEVEL TO SAVE FINAL DRIVE REGISTERS 
118 60 ; AND THEN CLEAR THE DRIVE. 
1183 306¢ ; INPUTS: | 
: F DRIVE CONTROL STATUS REGISTER 1. 
18 ge : RF . ADDRESS oF MBA CONFIGURATION STATUS REGISTER. 
118 66 ; RS = DEVICE UNIT UCB ADDRESS. | 
118 068 : OUTPUTS: | 
18 076 : THE FINAL DRIVE REGISTERS ARE SAVED AND THE DRIVE IS CLEARED. | 
1165 $078 tm.savonvsts: cosy ucoay ar pecasieaMeyoRIMENS AIMS, necustes | 
eH A EE Tie i Ee See Ha 1G fae ee dint 
00B8 (5 «004 A3S)SCOF?”s«11BF VIL = ; “MT : 
W"MT~TC SAV(R5) jSAVE TAPE CONTROL REGISTER 
oe ee me re MR 
00p0 ¢S5 = 1C AS.—ssF?-=«11D0 3079 CVTLW mT-CC RS) UCBSY w_AT Tt SAVERSS Save Check Character Register. 
63 09 9A 1106 080 MOVZBL MEIDRVCLRIT.MT_CSITR3T 5 CLEAR paIV 
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SETUP 
~SBTTL TMO3-TE16/TU77 SETUP MBA FOR INTERNAL SPACING FUNCTION 


nos 6/ 

3-TE16/TU 

“hee ie 

5 : TM_SETINTSPC = TMO3-TE16/TU77 SETUP MBA FOR INTERNAL SPACING FUNCTION 

1 5 : THIS ROUTINE IS CALLED TO SETUP THE MBA REGISTERS FOR AN INTERNAL SPACING 

8 : FUNCTION THAT USES THE INTERRUPT STACK AS A WRITECHECK BUFFER. 

30 > INPUTS: 

1 3 : R3 = ADDRESS OF DRIVE CONTROL STATUS REGISTER 1. 

1 93 ; R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 

34 ; RS = DEVICE UNIT UCB ADDRESS. 

096 : OUTPUTS: 

1 098 : THE MBA MAP REGISTERS, BYTE COUNT REGISTER, AND VIRTUAL ADDRESS REGISTER 
099 ; 1S LOADED WITH VALUES THAT MAP ONE PAGE OF THE INTERRUPT STACK 

1 101 ° 

1 1} TM_SETINTSPC: :SETUP MBA FOR INTERNAL SPACING FUNCTION 
1 1 MOV. —-UCBSL ~SVAPTE(RS), =(SP) SAVE CURRENT TRANSFER PARAMETERS 

1 104 CLRW UcaSuB (R5) [CLEAR BYTE OFF 

1 105 MOVW ae BENT RSD >SET TRANSFER BYTE COUN 

1 106 MOVL Geng GL SPTBASE {GET BASE ADDRESS OF SYSTEM PAGE TABLE 

1 10 MOVAB ET STARTING ADDRESS OF DRIVER 

1 108 EXTZV apy VAS. . S*#VASS_VPN.RILR1 EXTRACT SYSTEM VIRTUAL PAGE NUMBER 
1 109 MOVAL CROVER IT. “UCBSL SVAPTE (RS) :SET STARTING PTE ADDRESS 

1 110 COML #0, MBASL’SR(R4Y ;CLEAR MBA STATUS REGISTER 

1 111 LOADMBA LOAD MBA MAPPING REGISTERS 

112 VQ —s (SP) +, UCBSL_SVAPTE(RS) RESTORE CURRENT TRANSFER PARAMETERS 
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~SBTTL TMO3S-TE16/TU77 SLAVE CONTROLLER INTERRUPT DISPATCHER | 
TMSINT = TMO3-TE16/TU77 SLAVE CONTROLLER INTERRUPT DISPATCHER 


vis ROUTINE JS ENTERED VIA A_JSB_ INSTRUCTION WHEN AN INTERRUPT OCCURS ON A 
TMO5-TE 6/107 SLAVE CONTROLLER. THE STATE OF THE STACK ON ENTRY IS: 


3¢ 

3 O(SP) = ADDRESS OF IDB ADDRESS. 

H 4(SP) = SAVED R2. 

: (SP) = SAVED RS. 

3 12(SP) = SAVED R4. 

; 16(SP) = SAVED RS. 

3 § (SP) = INTERRUPT PC. 

; 4(SP) = INTERRUPT PSL. 

: | 

; INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 

; IF THE hh ae AH ba MS adh nn  a + CURRENTLY OWNED AND THE OWNER UNIT IS 

; EXPECTING AN INTERR THEN THAT UNIT IS DISPATCHED FIRST. ALL OTHER 

; UNITS ARE DISPATCHED. of SEL ECTING iw CORRESPONDING SLAVE DRIVE, READING 

; ITS STATUS, AND DISPATCHI NG IF AN AT TENTION cone) ioe EXISTS. AS EACH UNIT | 

: IS FOUND, A TEST IS O DETERMIN AN INTERRUPT IS EXPECTED ON THE 

; UNIT. IF YES, THEN THE BRIVER IS CALLED AT ITS INTE R PT RETURN ADDRESS. 

3 ELSE THE DRIVER IS CALLED AT ITS UNSOLICITED INTERRUPT ADDRESS. AS 

3 CALL TO THE DRIVER RETURNS, THE + A E UNIT IS SELECTED AND AN ATTEMPT — 

: IS MADE TO DISPATCH THAT UNIT. WHEN A ITS HAVE BEEN SELECTED AND NO 

3 ATTENTION CONDITIONS REMAIN, THE INTERRUPT IS DISMISSED. 

TMSINT:: Play th 4 ds SLAVE CONTROLLER INTERRUPT D | 
MOVL a(SP),R3 GET ADDRESS D 


53 008 dO 
54 a dO OV IDBSL. CSR(R3) ,R4 [GET ADDRESS OF TMO3-TE16/TU77 REGISTERS 
: Here we clear the attention. summary bit corresgenstng to the MASSBUS port 
number of this TM03. To do this we obtain nf. En" edg to the MBA-CSR 
indirectly thru the IDB=>ADP. With the TMO5-CSR address in hand, | 
we subtract to Goterning the distance of the TMO3-CSR to the base 
of the MBA external regi sters. This difference divided by 12 
oy tgnt phi ted by gives the port number of interest. 
Writing a 1 into the re the Bit, AOTES eh post tion of the attention 
summary register cleore the TE= this addition was made 
necessary the A on of 1H78 errs i 3 the MASSBUS interrupt 
dispatcher (MBAINTDSP). In effect Device Drivers for MASSBU 
multi-device wae ge $20 now have the responsibility of clearing 
their attention bit. 
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ASSUME ADPSL CSR CSR £€Q 0 
55 14 83 0 MOVL C_ADP(R3) RS : RS => MBA-CSR 
53 9400 MOVA Re LER ERBX R5) ,R2 ; R => BASE OF MBA EXTERNAL REGISTERS | 
: 5 : ‘ 2 ¢ suBL ar a ; = Pad font OF TMO3-CSR FROM BASE 
0098 cS (01 eS ASHL RD. re MBASL_AS(RS) ; CLEAR ATTENT OT ION CURMARY Y BIT. 
24 AS oD PUSHL M [SAVE CONTENTS OF TAPE CONTROL REGISTER 
55 a3 i HOVL $L_OWNER(R3) RS 3GET a ADDRESS 
07 64 AS 8 5 BBCC suCBSV, Iyt T UCBSy. STS(R5).10$ sIF CLR, INTERRUPT NOT EXPECTED 
3 10 a5 PD MOVO BSL F TRESTORE DRIVER CONTEXT 
0c B56 J$8 See C_ R3(A3) 6 [CALL DRIVER 


TMORIVER = TMO3-TE16/TU77 MAGTAPE DRIVER AX/VMS Macro V04-00 Page 67. 
Mira tt TMO3-TE 18) $iry SLAVE CONTROLLER INTERRUP mists 7 88: 9: 8 YORIVER. SRETTMORIVER.MAR: 1 w th 
7E D4 4 17 108: CLRL 0s = (SP) :SET STARTING UNIT NUMBER 
52. 6€ 0DO 124 1b MOVL Unit number to o.regteser 
53 08 BE DO 10465 3175 MOVL eT Sh t RETRIEVE ADDRESS 18 
54 $ DO 124 126 MOVL Toei ¢ Re as), R4 SRETRIEVE ADDRESS OF 1" 3-TE16/TU77 REGISTER 
24 AG DO 1204C 317 MOVL TC(R4) SSELECT NEXT SLAVE UNI 
55.18 A34 p 178 MOVL p66 UEBLST(R3)CR2I, RS GET ADDRESS F UCB 
53 04 M4 OD z 0 MOVL  MT_DS(R4),R3 TREAD SLAVE DRIVE STATUS 
1258 1 3 
! 28 } 5 ; POLL STATUS FOR ATTENTION CONDITIONS 
1 38 185 ; TKE SEQUENCE IN WHICH ATTENTION CONDITIONS ARE POLLED IS CRITICAL. 
1258 31 $ ; DUE TO AN ERROR IN THE TE-16 DRIVE DESIGN, THE ATTEMPT TO RESET AN 
1258 3187 ; ATTENTION CONDITION WITH DRIVE-CLEAR, WHILE REWINDING, RESULTS IN 
1258 31 8 + AN RMR ER REGISTER moDiE IC ION REFUSED). SINCE ALL ERRORS ARE 
1258 3189 : CLEARED WITH DRIVE-CLEAR, RMR IS REASSERTED SWAMPING THE SYSTEM 
38 130 ; WITH INTERRUPTS UNTIL THE REWIND COMPLETES. 
1258 198 : TO AVOID THIS CONDIT10N NO ATTENTION CONDITIONS ARE SERVICED IF 
1258 3193 : PIP IS SET FOR THE DRIVE. THIS HAS THE EFFECT OF BLOCKING INTERR- 
1258 3194 : UPTS FROM OTHER DRIVES BUT IS PREFERRABLE TO LOCKING UP THE ENTIRE 
1258 3195: EM. CORRECT REMEDY IS TO FIX THE PROBLEM IN THE DRIVE ELEC- 
1258 196 : TRONICS BY BLOCKING ALL ATTENTION CONDITIONS UNTIL REWIND IS DONE 
1258 3197 : (AS TU-77). UNDER THESE CONDITIONS, PIP SHOULD NEVER OCCUR 
: IN CONJUNCTION WITH OTHER ATTENTION CONDITIONS. 
38 198 IN C CTION WITH OTHER ATTENTION CONDITIONS 
1258 0 :- 
1258 61 
1 53 00 EO 1258 0¢ BBS #MT_DS_V_SLA,R3,30$ sI1F SET, SLAVE TRANSITION TO ONLINE 
27 5 C €1 125F 320 BBC #MT~DS"V~MOL.R3,40$ :IF CLR, MEDIUM OFFLINE 
45 3 0 €0 1 63 04 BBS #MT"DS-V"PIP.R3, 70S SIF SET POSITIONING IN PROGRESS 
41 01 €1 126 05 BBC #MT"DS"V~BOT.R3, 70S -IF CLR, NOT AT BEGINNING OF TAPE 
68 AS) «(01s AAs«1268 6 BICw  #UCBSM“MT_REWIND,UCBSW_DEVSTS(R5) ;CLEAR REWIND IN PROGR 
35 $4 A501 gS 1 of 0 BBCC #UCBSV~INT YCBSY_STS(RS) . 608 -1F CLR, INTERRUPT NOT EXPECTED 
3 10 A5 MD 1276 8 MOVG UCBSL_FR3(R5) ,R3 SRESTORE DRIVER CONTEXT 
0c 5 16 28 09 JB aycesc FPC(RSS :CALL DRIVER 
68 AS 02 AB 127D 3211 308 BISW  #UCBSM_MT_PRVMOL ,UCBSW_ pévsTs(Rs) sSET PREVIOUS MOL STATE 
AS 01 AA 1281 1 BICW #UCBSM™ ATR REWIND .UCBSW-DEVSTS(R5) CLEAR REWIND IN PROGRESS 
FEE? 30 3 13 BSBM TRAUNSOLAT SCALL UNSOLICITED INTERRUPT ENTRY 
1D 68 as ; E5 128A 3215 40$ BBCC sucBsy _MT_PRVMOL ,UCBSW_ pévsts¢ (R5) ,708 IF CLR, PREVIOUSLY OFFLINE 
$ A 1 AA 128F 1 BICW CBSM"MT~REWIND, UCBSW~ DEV STS(R5) :CLEAR REWIND IN PROGRESS 
— 64 AS 3 1 5 1 MOVZWL ta w_STSTRS) , =< (&P) SSAVE CURRENT DRIVE STATUS 
FEDS 129 18 BSBW M_UNSOL CALL UNSOLICITED INTERRUPT 
06 oe E1 129A 321 BBC putes $V_VALID.(SP).45$ :DON'T RESET VOLUME VALID IF FLAG WAS CLEAR 
64 AS Q 00 8F Ag 129 0 BSW suCBSA VALID. UCBSW_ST TS«RS) RESET SOFTWARE VOLUME VAL 
E : c¢ A 45$ ADDL CLEAN THE STACK 
9 9A 12A9 : $0s MOVZBL Hi =DRVCLR:T. MT_CS1(R4) i CLEAR DRIV 
92 6E 7 €3 102A 4 70$ AOBLEQ ),208° ¥ MORE Hi AVE UNITS TO SCAN? 
128 5 - tree R5 and R4 after falling thru. 
53 08 af DO 128 6 MOVL arid R3 : 1p8 
54 6 DO 1284 MOVL IDBSL_CSR(R3).R4 > RG = 3-TE16/TU77 REGISTERS 
—€ 05 1287 8 TSTL Bt ; Clear loop count from stack 
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3 ASHL #31 -AT DS_V_SSC.MT =DS(R4) 1R2 ZANY SLAVE CHANGE STATUS 
1 POPL MT_TC(K4) TRESTORE CONTENTS OF TAPE CONTROL R 
4 ADDL [CLEAN STA 

MOVG = (SP) +,R2 TRESTORE REGISTERS 
4 mova (SP)+.R4 ; 
§ TM_END: TADDRESS OF LAST LOCATION IN DRIVER 
3 END 
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2525883 
SaALE 


NOP 
PACKACK 
READDATA 
LENGTH 
DPTSM_SUBCNTRL 


DPTSREINITAB 


ACPSMOUNT 
ACPSREADBLK 
ACPSWRITEBLK 
ADPSL_CSR 
DPTSC_ 
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TMORIVER - TMO3-TE16/TU77 MAGTAPE DRIVER 19 $e 138% 90:06: 18 eves Macro V04-00 Page 70 
Symbol table “SEP=1984 00:17: DRIVER. SRCITMORIVER.MAR; 1 (1) | 
1O$M_DATACHECK z 4 9 IRP$S_F CODE = 
1OSM_NOWAIT = IRPS$V_FCODE = 
1O$SV—DATACHECK = E IRPS$SV-PHYSIO 2 
1O$V— INHEXTGAP s ¢ IRPS$V_VIRTUAL 2 4 
1O$V—INHRETR = F IRPSW-BCNT s 
10$V-NOWAIT = 7 IRPSW_BOF F = 
1O$V-REVERSE = IRPSW_FUNC s 
10$_ACCESS = IRPSW_STS = A 
10$_ACPCONTROL = LOSTPOS . JOOSED R 03 
10$~ AVAILABLE = ASKH = 00 9 
10$_CREATE = MASKL = 04 
10$-DEACCESS = 4 BASL_AS = 41 | 
1O$_DELETE = 5 MBASL-BCR s 1 
10$_DRVCLR 2 ° 4 MBASL_CR s 4 | 
10$"ERASE TAPE = MBASL_CSR = 00 
10$_MODIFY 2 ° MBASL_ERB = 000004 
10$_ MOUNT = MBASL_MAP = 0000080 
10$_NOP 2 900 9 ASL_SR = 4: | 
10$_PACKACK = MBASL_VAR = 00 403 
10$-READLBLK = 00 39 1 MBASM_CR_ABORT = 0000000 
10$_READPBL = 000000 § MBASM_CR_I = 00000004 
10$_READPRESET = 00 4d MBASM_CR- INIT s aig eed 
10$_READVBLK = 00000031 MBASM_ERRO = QOOESFFF 
10$_RECAL = 44) 3 MBASM_SR_ATIN = 00010000 
10$_ REWIND = 00000024 MBASM_SR_ = 00000800 
10$_REWINDOF F = 00000022 MBASM_SR_DTABT = 00001000 
10$— SENSE CHAR = Bone MBASM_SR_DTCOMP = T3445 
10$- SENSEMODE = 0000002 MBASM_SR_ERCONF = 308 308 
10$_SETCHAR = 0000001A MBASM_SR” INVMAP = 0000001 
10$_SETMODE = $008 ; MBASM_SR_IS = 000000 $ 
10$_SKIPF ILE = i MBASM_SR_MAPPE = 44) 
10$_SKIPRECORD 2 09 38 ASM_SR_MBEXC = 000 43 0 
10$- SPACEF ILE = O09 MBASM_SR_MCP = 000 308 | 
10$_ SPACERECORD = ° . MBASM_SR_MDPE = 00000040 
10$_UNLOAD = 000 H BASM_SR_MXF = 44944 
10$_ VIRTUAL s 8 F MBASM_SR_NED = 0004000 
10$_WRITECHECK = 0000000A MBASM_SR_PGE = Bn 88080 
10$_WRITELBLK = 00 ¢0 MBASM_SR_ = 00000004 
10$_WRI TEMARK = c MBASM_SR_RDTO = 00 30 01 
10$_ WRI TEOF = MBASM_SR_S = 00004 38 
10$_WRITEPBLK = 0 MBASM_SR_WCKLWR = 00 $0 | 
10$- WRI TEVBLK = 000000 MBASM_SR_WCKUPR = $ 0040 
IOCSCANCELIO aeeeeeee =X 3 MBASV_SR_NED = 9 1 
1OC$0 1 AGBUF ILL eeeneeee § Xx MEDIA_ID_TE1 2 90 1 
IOCSLOADMBAMAP eeneeere xX MEDIA_ID-TU4 = 60295020 
IOCSMNTVER eeeeeeee =X MEDIA ID" TU7 = 9b 9504D 
IOCSRELCHAN eenecere =X MIN_RECORD = 0000000E 
IOCSRELSCHAN teneeeee MMGSGL_SPTBASE eeneeeee = X 0 
1OCSREQCOM eeneenee =X MSG$_DEVOFFLIN eeneeere = X 0 
IOCSREQPCHANL teeeeere =X MTISCRECK_A cess eeeeeere 0 
IOCSREQSCHANL eeeeeeee =X ISK _Mazy = 8 93 
IOCSRE TURN eeeeeeee =X MTSK-PE_1600 s 4 
1OCSwF IKPCH eeeneeee § xX MTSM~BOT = 1 
1OCSwFIRLCH eeeeeeee§ X 0 MTSM_DENSITY 2 F 
[Regt -Sikpte Britt arene = SiucgR 

= = 
IRPSL_WIND = 5 MTSM_FORMAT = 000000F 


<a 


S£p-198¢ 00:19:59 EDRIVER.SREITMDRIVER.maR;1 "°° 


Ig- 


2 


J 


= TMO3-TE16/TU77 MAGTAPE DRIVER 


TADRIVER 
Symbol table 


MN MO MMMMMMMMMMMMMmMmmn  RmRmMmnm men Mf 

oo OS OOOOOOOOOOOOoSoSoOOoO ooOOoO ooo oO 
=< Pad 

Qa @e® aaeacacacaacaacaaca ceaca ce ec <« 


VOTFOMTOTOR MOTO € OST MP DWO RK 4 COOK VO OK UF UDVODO0 VS Pe POST Ot 8 or Oru 
OVUVUGOOOOWVS OO we € ODOMOTM & OW UNNNVOOMWN &. CUUNIAMIOR. ££ OLVO OLMIS &€ POO 
SSSSssssssssss OF FVOWOOO TMM SSSSSOOOS SOOO SOO SONNE #Qow 


SOoooooooo 


DOOOCOSOSOSSSSSOSOSSSOSSSSSSSSSOSSSSSSSS « OOO 
COOOOOOSOSOSOSOSOSOSSOSSOOSCOOSOOSOSOSOSSSO # OOO 


w 
z a 
“xD WwWwS =a Pa 
a | va Ja > a [+ *] 
<«2w2w Sww «to [- 4 +3 - “= = 
awMwwm _— etoeur Se OK rae « 
wou Ou aw < Sere >rwv0tuuwuaou Xaver Ouz a o 
@eees «ayn « < OwoOwe Je CWOCCT OWE Z2-wie=s SO —! 
=zwwn>o> a aera wo =a mrrtetet ttt 4 tt ttot_-t pw tt Fr ‘ ss 
eecrcecun wow Qqaqaqa MGaQO Ov<202u > -4I000r 42a ZZzZOwo0oa<4 20ers > 
SBVVVVVY = -£ & O08 Se aw SwTtwood wwe VOOOWwwwua £ZZOaAre DS 3B -UE NO 
Hee eee Kew OOK wr Se YMwWIOWwWw wuaganinttitibttb bee et 8 bb 8 8 8 ote 
$0000 0 t BaNY VME ELON DEE & BZ HE NU UU VLARHKHGHKLKKKHPGLGLGHPKLAPHGLGHLAYV VEE 
OO SE SWE WL 0 MNANMNNNNNNNHVWMVMNMKHHMVWKHNNVE Swt- 
ZEESSFSFSSSFSSZAAAASSSSSSITSTITFMNVWVVWHVWVVHVVHVHVWVVWVVVVVWHVHVWHVWVVWVVWVHWHVWHVWVHVWHVHHKNOR KK 


pele te bo Ate ome bee bm <xumaocow 
—DOOOWMOOSOOOSCSOSS 


SSOSONSS OOF SBOOODSOTOSSOOSS SSH 
SOOSSONSS-SO35 4 = 
SSOO00 

Sooo 


DOOCOGDOOOOOOSOOOOSOSOOOOSOSOSOSOSOOSOSSOSOSSOSOSOSSOSoOSSSosoS: Sooo 
S—SDOSOSGOOOSOOSGOSOOSOSOOSSOSOSSOSOSOSSSSSSSSSSSSoSCSSoSoSoS 
DOOOOSOOOSOOOSOOSOSOSSOOSOSOSOOSOSOSOSOSOSSOSOSOOSOSOSSSSSoS oOo 


8 = od 


“acu 


fo 4 
eeu vu Oma &€VMwel Vr EV Mw 


a i 
Pp) <v <awwe 


YESS we IME 

4 ar-OwFtoAannver 

= oeteeeceeeeese 
>>>> 


a C2822 >? ?; 


ror eeees 


VOOew & tet zevuvunw 
scurcceceeEucceEEeKLLEE>>>>>>>>> 
teepreceeeceepeceeeeceeeee eee ee eee st 


Ce le a a al a al el el el ee ee ek a a a a cel el el el 


Deal eed seein eel ae eet seen ond ee eet eet ee eee eect ae 
ESESESTSTSTITESSEIIEITITITEITETIITITITITITITATITSTITEITITITETITIEIEIITEEEIITEIEIEEE 


TMORIVER 
Symbol table 


TIME OUT 
THEDGT 


TMSINT 
TM_CANCELIO 
TM_DTDESCLEN 
TM_DTYPE 
M"END 
TM_FUNCTABLE 
M_REGDUMP 
TM_SAVDRVSTS 
TM_SETINTSPC 
r “FxKK. Init 
TM-UNSOCNT 
uc CESS _CEX 
UCBSB~ -DEVCLASS 
UCB $B-DEVTYPE 


UCBSB_ “ERTENT 
UCBSB_ te 
SB_FEX 


ccc 
O00 


$8 _SLAVE 
UCBSK_LCL_TAPE_ LENGTH 
UCBSK AT T CENGTA 


B 
UCBSL_DEVCHAR2 
UCBSL_DEVDEPEND 

UCBS$L DPC 
UCBSL_FP 
UCBSL— 
UCBSL~100FL 
uc 


UCBSL-MEDIA_ID 
UCBSL—MT_ORGPO 


Vi 
_PURFL 


UCBSV~MT~PWRFL 
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PSECT name Allocation PSECT No. Attributes 


. Ss. 4 00 ¢ ) . CON LCL 

SABSS rt; ( #) -)» 1 -) NOPIC USR CON ABS LCL NO 
$$$105_PROLOGUE 00080 (¢ 128.) ¢ ( ¢°3 NOPIC USR CON REL LCL NOSHR 
$$$115 DRIVER OOO12CE ( 4814.) ( 3.) CON REL LCL N 


-— NOWRT NOVEC BYTE 
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Initialization 4 00: 8: 9.93 00:00:01.53 
ponnene processing } | 3: 3: 9-36 Bp tbe 4-28 
"Sy evar oh RHE B88 
Symbol table output 09:00:00.2 00:00: :73 
Psect synopsis output 0 0:00:00. 0:00:00.12 
Cross-reference output 9 8 :90:09-9 00:00:00.00 
Assembler run totals 127 0:00:33.5 00:01:59.91 


the he vorking set Limit was 2550 page 
bytes (392 pages) of vietusl memory were used to buffer the intermediate code . 
There were 140 pages of symbol table space tg to hold 2484 non-local and 183 local symbols. 
ag°8 source Lines were read in Pass 1, produc cing 3! object records in Pass 2. 
pages of virtual memory were used to define 53 macros. 
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Macro Library name Macros defined 


“$3 33SDUAgS: SYS.OBJJLIB.MLB;1 36 
$255$DUA SYSLIBJSTARLET. MLB;2 11 
TOTALS (all Libraries) 47 


2615 GETS were required to define 47 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: TMDRIVER/OBJ=0BJ$: TMDRIVER MSRC$: TMDRIVER/UPDATE=(ENHS: TMDRIVER) +EXECML$/LIB 
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